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ABSTRACT 



C- 



This research extended the previous work performed 
by Becker on the elevated temperature deformation charac- 
teristics of an aluminum-10 . 2% magnesium-0 . 52% manganese 
alloy. The alloy was warm rolled at 300 C to 94% reduction. 
Stress-strain testing was utilized to collect data for 
stress vs strain rate and ductility vs strain rate, as 
well as, stress exponents and activation energies. 

Tensile testing was performed at strain rates from 
-4 -1 -4 -1 

1.39X10 s to 1.39X10 s and temperatures from 20 C to 
425 C. Ductility ranged from 400% at 300 C and 600% at 
325 C to 700% at 425 C. The data clearly establishes that 
the warm rolled alloy is superplastic at temperatures as 

low as 275 C and may exhibit superplastic elongations 

-2 -1 

(greater than 400%) at strain rates as high as 10 s at 
325 C. Scanning electron microscope observations indicated 
little or no void formation at or below 300 C. The high 
ductilities observed at temperatures above the solvus are 
the result of grain boundary sliding. 
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INTRODUCTION 



I . 

The purpose of this thesis was to investigate the 
elevated temperature deformation characteristics of a 
thermo-mechanically processed Al-10 . 2%Mg-0 . 52%Mn alloy in 
the as-rolled condition. Previous research by Ness [Ref. 

1] , Bingay [Ref. 2], Glover [Ref. 3], Grandon [Ref. 4], 
Speed [Ref. 5], Chesterman [Ref. 6], Johnson [Ref. 7], 
and Shirah [Ref. 8], clearly demonstrated that thermo- 
mechanically processed aluminum-magnesium alloys exhibit 
high strength with good ductility at ambient temperature. 
Transmission electron microscopy studies by McNelley and 
Garg [Ref. 9] confirmed that the microstructure of this 
alloy consisted of fine, cellular dislocation structures 
or subgrain structures. It was further observed that 
annealing after rolling resulted in recovery with possible 
recrystallization to fine grains of submicron size. This 
prompted study of the elevated temperature behavior of 
these alloys with a view toward their possible superplastic 
behavior . 

Although his findings were preliminary, Becker [Ref. 

10] observed superplasticity in both the 8% and 10% 
aluminum-magnesium alloys. These alloys were thermo- 
mechanically processed by warm rolling. Testing was con- 
ducted on material in the as-rolled condition, after 
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annealing for various times at 300 C, and in a recrystal- 
lized condition obtained by heating for one half hour at 
440 C. 

The processing technique developed by Johnson [Ref. 7] 
and the tensile testing procedure developed by Becker 
[Ref. 10] were used in the study of this 10 . 2%Mg-0 . 52%Mn 
aluminum alloy. Tensile testing was conducted using an 
electo-mechanical Instron machine with a Marshall three 
zone clamshell furnace for temperature control. The 
microstructure of the elongated test samples was examined 
using optical microscopy. 

This thesis presents data obtained from the mechanical 
testing of an as-rolled magnesium-aluminum alloy as well as 
results of microstructural examination to assist in 
evaluation of mechanical test results. 
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I I . BACKGROUND 



A. ALUMINUM-MAGNESIUM ALLOYS 

Aluminum alloys have been extensively studied because 
of their low density, ductility, and toughness. The higher 
strength alloys derive their strength mainly through 
precipitation and solid solution hardening. The formation 
of a second phase retards dislocation motion and grain 
growth . 

Aluminum-magnesium alloys are characterized by a good 
strength to weight ratio, superior ductility, lower density 
with better corrosion resistance than other, higher strength 
aluminum alloys, and also good high cycle fatigue behavior. 
The strength can be improved through cold working. 

B. PREVIOUS WORK 

Ness [Ref. 1] initiated the investigation of high 
magnesium alloys at this laboratory. He studied an 18% 
aluminum-magnesium alloy, attempting to parallel the concepts 
developed by Bly, Sherby, and Young [Ref. 11] in their work 
on high carbon steel. Through mechanical working of an Fe-C 
material in the two phase ferrite-carbide region they 
obtained microstructural refinement and improved mechanical 
properties, as did Ness [Ref. 1] with a resulting compression 
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strength of 655 Mpa (99 KSI) in this very high magnesium 
alloy . 

Bingay [Ref. 2] and Glover [Ref. 3] attempted varia- 
tions in thermo-mechanical processing of aluminum alloys 
to eliminate cracking during the rolling process. To 
refine the 'microstructure, Bingay [Ref. 2] performed both 
isothermal and non-isothermal forging prior to rolling in 
15-19% magnesium containing alloys. Processing was difficult 
and subsequent work shifted to examine lower magnesium 
alloys. Aluminum alloys containing 7-9% magnesium were 
investigated by Glover [Ref. 3] who observed the characteris- 
tics of superplastic behavior. 

Extending the study into 7-10% magnesium alloys, Grandon 
[Ref. 4] introduced a 24 hour solution treatment followed 
by a quench and then warm rolling at 300 C. His results 
indicated a doubling of strength while maintaining good 
ductility when compared to the 5xxx series. He also 
noted that recrystallization did not occur during warm 
rolling below the solvus. Alloys with greater magnesium 
content were tested by Speed [Ref. 5]. 

Chesterman [Ref. 6] studied the nature of precipitation 
and recrystallization in these alloys through optical 
microscopy. For 8-14% alloys, he reported that recrystal- 
lization only occurred at temperatures above the solvus and 
was apparently not induced even after extensive cold working 
followed by annealing as long as the annealing temperature 
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was below the solvus. At annealing temperatures of . 6Tm, 
precipitation still replaced recrystallization as the 
method of stored energy release. 

Johnson [Ref. 7] standardized the thermo-mechanical 
processing of the aluminum-magnesium alloys. He investi- 
gated 8-10% alloys and reported material strength of 
twice that of the 5xxx alloys with good ductility. His 
process was to solution treat the material at 440 C for 9 
hours, isothermally upset forge the material, anneal for 1 
hour at 440 C, quench, and then warm roll. Various warm 
rolling temperatures were used ranging from 200 C to 340 C. 
He concluded that the beta phase contributed by dispersion 
strengthening to the high strength and good ductility. 

Shirah [Ref. 8] improved the microstructural homogeneity 
by increasing the solution treatment time to 24 hours. This 
extended treatment minimized precipitate banding while not 
effecting grain growth. 

Becker [Ref. 10] combined the previous studies and 
developed the procedure for tensile testing isothermally at 
various temperatures up to 300 C. His work concentrated on 
8.14% Mg and 10.2% Mg aluminum-magnesium alloys. He 
observed superplastic elongations of up to 400% and 
concluded that the higher magnesium content in the 10.2% 
alloy stabilized grain size and extended the range of 
superplastic behavior to higher temperatures. 
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C. SUPERPLASTIC BEHAVIOR 



Superplasticity is the capability of a material to 
deform to exceptionally high elongations. Elongation 
greater than 200% is often taken as superplastic [Ref. 11]; 
values of greater than 1000% have frequently been reported. 
The most important prerequisites for superplasticity are 
generally agreed to be fine, equiaxed grains with high 
angle grain boundaries, temperature in the range of 
0.5-0.7Tm, low strain rates, and a high strain rate sensi- 
tivity coefficient (m). 

To achieve superplasticity, a fine grain size of less 
than 10 microns is normally required. A second phase at 
the matrix grain boundaries is usually necessary to retard 
grain growth under warm temperature conditions. This second 
phase should be similar in strength to the matrix to 
minimize the formation of cavities [Ref. 11]. The. fine 
grains should also be equiaxed with smooth, rounded grain 
boundaries to promote sliding. Grain growth suppresses 
superplasticity as larger grains impose larger diffusion 
distances and reduce the strain resulting from boundary 
sliding . 

Deformation at elevated temperature is a thermally 
activated process, and superplasticity is observed only at 
elevated temperatures. The flow stress is a function of 
strain, strain rate, and temperature. At constant strain 
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and temperature, stress is often assumed to depend upon 
strain rate according to 

a = Ke m (eqn 2.1) 

where a is the stress, e is the strain rate, K is a 
temperature dependent constant, and m is the strain rate 
sensitivity coefficient. 

In general, m increases with increasing temperature. 
Superplastic behavior in metals usually occurs at high m 
values of .3 to .5 and is the greatest at the maximum m. 

The value of m can be found by plotting log stress vs 
log strain rate for data obtained at constant strain and 
temperature . 

The activation energy (Q) is a measure of the energy 
required for temperature-dependent processes. For a 
thermally activated deformation process 

£ = f (a)exp(-Q/RT) (eqn 2.2) 

where R is a gas constant and T is temperature. 

Values for the activation energy can be obtained by 
plotting log strain rate vs inverse temperature for data at 
constant stress. Such plots often indicate that the 
activation energy may be constant for a range of stress 
but may change to a different value for a different range of 
stress. Values of activation energy for deformation often 
are the same as those for lattice diffusion, suggesting 
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lattice diffusion control of deformation. When grain 
boundary sliding controls the deformation, lower values of 
activation energy may be observed; diffusion in the grain 
boundaries, the rate controlling process, occurs more 
readily than diffusion in the grain interior and is 
characterized by the lower activation energy. Hence 
activation energy measurement may provide useful insight 
into the mechanism involved in the material . 
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III. EXPERIMENTAL PROCEDURE 



A. MATERIAL PROCESSING 

The aluminum alloy investigated was nominally 10.2 
weight % Mg and 0.52 weight % Mn . The direct chill cast 
ingot received was produced by ALCOA Technical Center using 
99.99% pure aluminum base metal alloyed with commercially 
pure magnesium, 5% beryllium-aluminum master alloy [Ref. 7]. 
The ingot measured 127 mm (5 in) in diameter and 1016 mm 
(40 in) in length. The complete composition is listed below 
in Table I [Ref. 7]. 



Table I 

Alloy Composition (Weight Percent) 

Serial Number Si Fe Mn Mg Ti_ Be 

501300A 0.01 0.03 0.52 10.2 0.01 0.0002 

A portion of the ingot was sectioned into billets 101.6 
mm (4 in) long with a square cross section of width 31.75 mm 
(1.25 in). Following the procedures developed by Johnson 
[Ref. 7] and Becker [Ref. 10] the billets were solution 
treated at 440C for 24 hours , upset forged at 440C on heated 
platens to approximately 28 mm (1.1 in) in height, annealed 
at 440C for 1 hour, then oil quenched. The billets were 
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forged along their greatest dimension, resulting in a 
reduction of approximately 73% or a strain of about 1.3. 

B. WARM ROLLING 

The rolling of the billets into sheets was comparable 
to that done by Becker [Ref. 10] and performed in the same 
manner as Johnson [Ref. 7], with some modifications made to 
the technique. To preclude cracking of the forged billets 
by suspected uneven heating, each billet was placed on a 
steel plate used as a heat source in the rolling furnace. 
Since isothermal heating was essential each sample was 
initially heated from room temperature to 300C for 
approximately 10 minutes (after the sample surface 
temperature reached 300C) before attempting the first 
rolling pass. The samples were then heated for 6 minutes 
between passes for the first three passes and 1 to 3 minutes 
between passes thereafter, leaving the sample in the furnace 
just long enough to ensure an isothermal condition. The 
temperatures of both the sample and the plate were monitored 
using thermocouples. In the later rolling passes, the 
deformed sheet was pulled through the rollers to minimize 
warping. Each billet was rolled into a sheet about 1.8 mm 
(0.07 in) thick, 102 mm (4 in) wide, and 762 mm (40 in) long 
resulting in a final sample reduction of approximately 94%. 

As described in Becker [Ref. 10], the rolled sheets were 
cut into blanks 63 mm (2.47 in) long and 13 mm (0.5 in) 
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wide. Depending upon sheet thickness each sheet yielded 
130 to 140 blanks. The blanks were endmilled in lots of 
five to a gage width of approximately 3 mm (0.12 in) and 
length of 15 mm (0.6 in). A fabricated jig was used as 
a milling guide in determining the gage dimensions. A 
sketch of the test specimen is shown in Figure 3.1. 

C. SPECIMEN TESTING 

The tensile testing procedure was similar to that 
described by Becker [Ref. 10]. Each test specimen was 
placed into wedge grips and held in place by pins passing 
through the wedges. The wedge-action grips, grip assemblies, 
and pull rods were supplied by ATS, King of Prussia, PA, and 
were fabricated from Inconel 718. The assembly was then 
mounted into pull rods connected to an electro-mechanical 
Instron machine. 

To maintain a constant specimen temperature during 
testing, a Marshall clamshell furnace containing three, 
vertically oriented heating elements was utilized. The 
heating elements were individually regulated by three 
controllers using thermocouples located adjacent to each 
element. The furnace was insulated by positioning 
insulation paper between both halves of the clamshell and 
placing crescent-shaped insulation inside the top and 
bottom of the furnace. Rings of insulation were wrapped 
around each pull rod just outside the furnace, with a final 
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Figure 3.1 Test Specimen Geometry 



21 



insulation pad wrapped around the rings. The bottom 
insulation was wired to the furnace to keep it in place 
during testing. 

Five thermocouples were placed inside the furnace to 
monitor the specimen temperature. A thermocouple was 
attached to each pull rod approximately four inches above 
and below the specimen and two additional thermocouples 
were touching the top and bottom of the specimen, respec- 
tively. A center thermocouple was initially placed 
touching the middle of the specimen but this tended to 
bend the sample and result in premature fracture. The 
thermocouple was subsequently positioned beside the specimen 
at the start of each test . 

The tensile testing was performed with crosshead speeds 
ranging from 0.127 mm per 'minute to 127.0 mm per minute 
(0.005 in/min to 5.0 in/min) at temperatures from 20C to 
425C. Care was taken to ensure each specimen was pulled 
isothermally . The testing apparatus was heated for a full 
day prior to conducting a sequence of experiments at a 
constant temperature. A test specimen was then mounted into 
the pull rods and the furnace closed. The five thermocouples 
indicated temperature equalization in approximately 1 hour 
and the test was started. At very low strain rates the 
bottom pull rod temperature would slowly start to drop as 
the bottom rod came out of the furnace. The top four 
temperatures normally remained identical, with the bottom 
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pull rod temperature dropping by no more than IOC before 
completing the test. Figure 3.2 is a visual summary of 
one test sequence. 

D. DATA REDUCTION 

The Instron strip chart recorder registered applied 
force as a function of chart motion. The magnification, 
ratio between chart speed and crosshead speed varied but 
was usually set at 10. From the raw data, engineering 
stress and strain were computed and loaded into computer 
data files for plotting and further calculations. To remove 
such variables as grip tightening, Instron machine error, 
and elastic strain, a "floating slope" calculation was made 
at each selected data point using a computer subroutine. 
Sample elongation was found by measuring the fractured 
specimen . 

E . COMPUTER PROGRAMS 

All plotting and true stress-true strain calculations 
were accomplished using FORTRAN computer programs in 
conjunction with the library routine DISSPLA. Essentially, 
the appropriate input data files were read into each program 
and loaded into arrays. These arrays were then operated on 
to achieve the desired variables, loaded into DISSPLA, and 
plotted against each other. Also, various DISSPLA curve 
fitting routines were used on some of the plots to obtain 



23 




Key 



A. 1.4X10_^s"| 

B. 5 . 6X10_oS_7 

C. 1 . 4X10_oS_7 

D. 5.6X10_^s_f 

E. 1.4X10 pS r 

F. 5 . 6X10_fs_T 

G. 1.4X10 s 

H. Untested Sample 



Figure 3.2 



Photograph' of Samples Tested at 325 C 
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smooth curves between data points. The computer programs 
are listed in Appendix B. 

F . METALLOGRAPHY 

Selected specimens were cold mounted on a base of glass 
using steel blanks or brass rings as a mold, depending upon 
the size of the sample. The mounted samples were then 
ground using 240 to 600 grit paper and polished with a 
magnesium oxide abrasive system. A Graf-Sargent solution 
was used to etch each specimen. The technique used was to 
swab each sample for 40 seconds. Using a Zeiss Universal 
Microscope, optical micrographs were taken with Panatomic X 
35 mm film. 
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IV. RESULTS AND DISCUSSION 



A. MECHANICAL TESTING RESULTS 

To study the deformation characteristics of this alloy, 
tensile testing was conducted over a wide range of tempera- 
tures and strain rates using the procedures described 

in Chapter III. Temperatures varied from 20 C to 425 C and 

-4 -1 -1 

strain rates from 1.4X10 to 1.4X10 s as illustrated in 
Table II. 

True stress and true plastic strain were computed as 
described in Chapter III and plotted for each test tempera- 
ture. One example is shown in Figure 4.1 for testing at 
300 C, and the remainder of the data obtained is given in 
Appendix A. The curves drawn reflect data points taken 
prior to the onset of necking; this procedure was necessary 
as the assumption of uniform straining of the gage section 
does not apply once necking has begun. As often noted in 
studies of superplastic materials, the test samples exhibit 
prolonged necking during deformation. Particular attention 
was directed to the temperature interval from 200 C to 325 C 
since Becker's [Ref. 10] data indicated superplastic behavior 
in this region. 

In this temperature range, the stress-strain plots for 
all temperatures indicate that at high strain rates a strain 
softening occurs as stress decreases significantly with 
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Table II 



Data for Al-10 .2%Mg-0 . 52%Mn Alloy in the As-Rolled Condition 



True Stress at 



Temperature C 1 


UTS 


0.1 Plastic Strain 




Strain 


i Rate s 


Mpa 


Mpa 


Ductility 


20 


5.6X10“^ 
5.6X10 6 


4T4.0 

478.0 


* 

* 


3.0 

3.2 




5.6X10 


503.0 


* 


3.2 


100 


5.6X10"^ 

5.6X10 


404.0 

453.0 


484.0 

524.0 


34.2 

22.5 




5.6X10 


486.0 


* 


9.3 


150 


5.6X10“^ 
5.6X10 4 


247.0 

327.0 


297.0 

386.0 


67.0 

51.5 




5.6X10 * 


376.0 


438.0 


37.7 




1.4X10 


405.0 


* 


28.2 


200 


1.4X10"^ 


80.6 


96.0 


134.0 




5.6X10 \ 


119.0 


150.0 


187.0 




1.4X10"^ 


146.0 


184.0 


125.0 




5.6X10 * 


166.0 


209.0 


144.0 




1.4X10 ^ 


225.0 


266.0 


94.0 




5.6X10 f 5 


268.0 


297.0 


58.8 




1.4X10 


301.0 


329.0 


31.8 


225 


1.4X10 - ? 


58.4 


77.0 


215.0 




5.6X10 \ 


82.0 


104.0 


141.0 




1.4X10 'Z 


101.0 


134.0 


116.0 




5.6X10 p 


124.0 


167.0 


140.0 




1 . 4X10 ^ 


143.0 


177.0 


138.0 




5.6X10 ‘Z 


216.0 


253.0 


99.2 




1.4X10 


262.0 


280.0 


37.3 


250 


1 . 4X10 - ^ 


28.4 


36.0 


269.0 




2.8X10 . 


37.7 


42.0 


294.0 




5.6X10 \ 


46.1 


59.0 


335.0 




1.4X10 * 


59.2 


78.0 


228.0 




2.8X10 ^ 


71.0 


91.0 


135.0 




5.6X10 p 


86.9 


108.0 


179.0 




1.4X10 ^ 


105.0 


134.0 


142 .0 




2.8X10 ^ 


136.0 


170.0 


104.0 




5.6X10 ^ 


170.0 


206.0 


121.0 




1.4X10 


191.0 


218.0 


54.8 



^Specimen fractured before achieving 0.1 strain. 
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True Stress at 
0.1 Plastic Strain 
Mpa 



Ductility 



Temperature C_^ 


UTS 


Strain Rate s 


Mpa 




-4 


17.5 


275 


1.4X10 I 




2.8X10 I 
5.6X10 \ 
1.4X10 "i 


25.0 

29.4 

39.4 




2.8X10 
5.6X10 "Z 
1.4X10 p 
2.8X10 p 


45.9 

57.1 

84.1 
110.0 




5.6X10 7 
1.4X10 


128.0 

154.0 


300 


1 . 4X10 - ^ 
2.8X10 2 


11.4 

12.9 




5.6X10 \ 
1.4X10 Z. 


20.1 

25.9 




2.8X10 ~ 
5.6X10 t, 
1.4X10 p 


28.9 

48.1 

61.3 




2.8X10 p 
5.6X10 Z 
1.4X10 


77.9 

93.8 

120.0 


325 


1.4X10"^ 
5.6X10 \ 


11.3 

16.0 




1.4X10 Z, 


19.7 




5.6X10 'Z 
1.4X10 p 
5.6X10 ^ 
1.4X10 


31.4 

56.6 

83.4 
108.0 








350 


5.6X10 * 
5.6X10 p 


14.2 

36.3 




5.6X10 


82.7 


375 


5 . 6X10~o 
5.6X10 p 


13.7 

40.1 




5.6X10 ^ 


78.6 


400 


5.6X10“^ 


11.1 


5.6X10 p 
5.6X10 


26.5 

64 . 6 


425 


5 . 6X10~p 


5.9 


5.6X10 p 
5.6X10 ^ 


16 . 5 
41.7 



22.0 


198.0 


32.0 


438.0 


35.0 


397.0 


52.0 


255.0 


58.0 


239.0 


75.0 


120.0 


104.0 


281.0 


141.0 


209.0 


167.0 


182.0 


187.0 


73.3 


14.0 


258.0 


15.0 


283.0 


23.0 


392.0 


32.0 


391.0 


39.0 


373.0 


60.0 


293.0 


83.0 


160.0 


94.0 


238.0 


111.0 


138.0 


154.0 


85.2 


13.0 


398.0 


19.0 


492.0 


25.0 


579.0 


40.0 


398.0 


70.0 


282.0 


92.0 


269.0 


137.0 


187.0 


18.0 


362.0 


43.0 


319.0 


83.0 


168.0 


16.0 


498.0 


45.0 


191.0 


77.0 


216.0 


13.0 


539.0 


32.0 


441.0 


64.0 


157.0 


7.0 


684.0 


22.0 


326.0 


44.0 


150.0 
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Figure 4.1 True Stress vs True Plastic Strain Data for Testing Conducted at 100 C 
Al-10.2%Mg-0.52%hn. Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 
Quenched, and Warm Polled at 300 C to 94% Reduction. 



increasing strain. Such an apparent softening could result 
from localized deformation of the samples. The softening, 
however, generally appears at high strain rates. Jonas 
[Ref. 13] reported similar data and suggested that this was 
due to a break up of a fibered structure resulting from 
rolling. A detailed explanation as to why this should 
result was not offered although it may be inferred that the 
more equiaxed structure had a smaller apparent grain size. 

At intermediate strain rates the stress remains relatively 
constant over a wide strain range, and at low strain rates 
the stress increases slightly from strain hardening, perhaps 
due to grain growth. 

This latter behavior can be understood from models such 
as those due to Nabarro [Ref. 14] and Herring [Ref. 15], or 
Coble [Ref. 16], all of which predict 1/d grain size 
dependence for the deformation rate, where d = grain size 
and x = 2 (Nabarro-Herring) or 3 (Coble). As grain growth 
occurs, the stress must increase to maintain a constant 
strain rate. To obtain representations for the temperature 
and strain rate dependence of plastic deformation, values 
of true stress at a true plastic strain of 0.1 were plotted 
against temperature (for each strain rate) and strain rate 
(for each temperature). 

Figure 4.2 illustrates the dependence of the flow 
stress at 0.1 strain on temperature for each strain rate 
examined. Generally, as the strain rate increases the 
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Figure 4.2 True Stress at 0.1 Strain vs Temperature Data for Al-10. 2%Mg-0 . 52%Mn . Solution 
Treated at 440 C for 24 Hours, Annealed at 440 C for l Hour, Oil Quenched, and Warm Rolled 
at 300 C to 94% Reduction. 



stress increases and as temperature increases the stress 
decreases. The trend of the curves suggests a weakening of 
the temperature dependence of the flow stress for 
temperatures above the rolling temperature, 300 C. 

Sherby et . al . [Ref. 17] have noted that one common 
(Characteristic of superplastic metallic alloys was that 
their resistance to plastic flow is highly strain rate 
sensitive. Figures 4.3 and 4.4 are plots of log stress 
at 0.1 plastic strain vs log strain rate for selected 
temperatures. The data of Figures 4.3 and 4.4 are 
generally not linear for each temperature. Rather, the 
slope m generally increases with decreasing strain rate, 
although at temperatures from 275 C to 325 C the curves 
appear sigmoidal as discussed by Mukherjee [Ref. 18]. Also, 
the slopes appear to increase with increasing temperature 
for any strain rate. The data in Figure 4.4 was plotted 
separately to avoid overlap; as noted previously, the flow 
stress dependence upon temperature is weak in this range. 

Based on the stress-temperature data of Figure 4.2, 
activation energies can be determined by plotting strain 
rate vs. 1/T at constant values of stress (Figure 4.5). 

These activation energy values were obtained from the data 
of Figure 4.5 by applying the relation 



Al /T (o = CONSTANT) (eqn. 4.1) 
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Figure 4.3 True Stress at 0.1 Strain vs Strain Rate Data for Al 10.2 %Mg 0.52%Mn. Solution 
Treated at 440 C for 24 Hours, Annealed at 440 C for 1 Hour, Oil Quenched, and Warm Rolled 
at 300 C to 94% Reduction. 
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Figure 4.4 True Stress at 0.1 Strain vs Strain Rate Data for Testing Conducted at Temperatures 
of 325 C and 375 C for Al-10. 2%Mg-0 . 52%Mn . Solution Treated at 440 C for 24 Hours, Annealed at 
440 C for 1 Hour, Oil Quenched, and Warm Rolled at 300 C to 94% Reduction. 



STRAIN RATE VS 1/T 




,.S 3iV8 Nivais 



35 



Figure 4.5 Strain Kate vs 1/T Data for Al-10 . 2%Mg-0 . 52%Mn . Solution Treated at 440 G for 24 Hours 
Annealed at 440 C for 1 Hour, Oil Quenched , and Warm Rolled at 300 G to 94% Reduction. 



for each of the stresses indicated; that is, the slopes of 
the individual lines on Figure 4.5 were used to obtain the 
values shown . 

The activation energy at higher stresses and lower 
temperatures is about 36 Kcal/mol. This value is consistent 
with lattice diffusion control of deformation, either via 
control of dislocation climb or dislocation glide [Ref. 20]. 

A change in slope appears to occur near 300 C; above this 
temperature (at smaller values of 1/T) the activation energy 
appears to decrease to a value of about 16 Kcal/mol. The 
rate and the temperatures at which this value becomes 
dominant correspond to the regime wherein the apparent 
temperature dependence of the stress diminishes (Figure 4.2). 
The rates and temperatures also correspond to those wherein 
superplastic ductilities begin to be observed. 

Micrographs in Figures 4.6 and 4.7 are of samples tested 
at 200 C and 300 C, respectively. No cavitation appears 
at 200 C although some cavitation is observed at 300 C. 

These observations are consistant with the noted break 
in slope in Figure 4.5 at about 300 C indicating the onset 
of possible grain boundary sliding. 

At temperatures above the solvus (367 C) the magnesium 
tends to go back into solution, with the result that the 
intermetallic is no longer present to retard coarsening of 
the subgrain structure or to inhibit recrystallization. The 
recrystallization coupled with the solid solution 
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AI-10Mg-0.52Mn 

e:5xlO' 4 /sEC 200°C 




Figure 4.6 Optical Micrograph of Al-10 . 2%Mg-0 . 52%Mn , 
160x, Tested at 200 C, Strain Rate 5 .6X10~^s - -*- ; Sec- 
tioned Longitudinally. Etched Using Graf-Sargent 
Solution . 
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Graf-Sargent Solution. 



strengthening within the lattice may promote grain boundary 
sliding as the dominant deformation mechanism. A charac- 
teristic of recrystallized aluminum alloys undergoing 
superplastic deformation via grain boundary sliding is 
extensive cavitation. The micrograph in Figure 4.8 shows 
extensive cavitation in the test specimen pulled at 400 C. 

Ductility was plotted versus temperature in Figure 4.9 
for the warm rolled Al-10 . 2%Mg-0 . 52%Mn alloy of this 
research. Included is data from Becker [Ref. 10] and 
Stengel [Ref. 19] on this alloy, warm rolled and then 
recrystallized by annealing at 440 C prior to tension 
testing. The data on the material recrystallized repre- 
sents a pattern expected for these aluminum alloys. The 
as-rolled data, however, rises significantly in ductility 
between 150 C and 300 C. Sample 'elongations of greater 
than 400% were observed at temperatures as low as 275 C. 
This indicates that warm rolling enhances ductility to 
values greater than expected. Theories of elevated 
temperature deformation do not consider subgrain structures 
as likely to exhibit superplastic behavior. Rather, fine 
grain size is thought to be required. It is not clear, 
here, why such structures exhibit such enhanced ductility, 
but the ductility itself is clearly the result of the 
warm rolling. The increasing m value with increasing 
temperature also would result from the warm rolling. The 
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Figure 4.8 ^Optical Micrograph of Al-10 . 2%Mg-0 . 52%Mn , 160x , Tested at 400 C, Strain 
Rate 5.6X10 «s~ ] ; Sectioned Longitudinally to Reveal Cavitation. Etched Using 
Graf-Sargent Solution. 
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Figure 4.9 Ductility vs Temperature Data Comparing As-Rolled to Recrystallized Data for 
Testing Conducted at 5.6X10 - ^s“l for Al-10 . 2%Mg-0 . 52%Mn . Solution Treated at 440 C for 
24 Hours, Annealed at 440 C for 1 Hour, Oil Quenched, and Warm Rolled at 300 C to 94% Reduction. 



remaining plots and data are included in Appendix A and 
Table II. 

Figure 4.10 is a plot of ductility vs strain rate for a 
constant temperature of 300 C. The curve describes an 
expected shape, based on the stress-strain rate data. It 

should be noted that peak ductility of 392% occurs at a 

-3 -1 

strain rate of 5.6X10 s , a relatively high strain rate. 
More of these plots at selected temperatures are included 
in Appendix A. 

B. METALLOGRAPHY 

A comparison between microstructures after testing at 

-2 -4 -1 

strain rates of 5.6X10 and 5.6X10 s can be seen in 
Figure 4.11. There is a marked difference in grain struc- 
tures as a function of strain rate. At high rate where 
ductility is lower and time at temperature is short, 
little cavitation is seen and little evidence for resolu- 
tioning of the second phase or recrystallization. On the 
other hand, at a lower rate with more time at temperature, 
the resolutioning of the second phase and recrystallization 
lead to more ready boundary sliding and the accompanying 
cavitat ion . 

In summary, the activation energy for deformation follows 
a pattern suggesting lattice diffusion giving way to grain 
boundary diffusion control as temperature increases above 
300 C, the rolling temperature. The m values attained 
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Figure 4.10 Ductility vs Strain Rate Data for Testing Conducted at 300 C for Al-10 . 2%Mg-0 . 52%Mn . 
Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 1 Hour, Oil Quenched, and Warm 
Rolled at 300 C to 94% Reduction. 



AI-10Mg-0.52Mn 

400°C 




c:5x10' 4 /sec 



Figure 4.11 Optical Micrographs of Al-10 . 2%Mg-0 . 52%Mn , 
500X, Tested at 400 C, Sectioned Longitudinally, to 
Compare Grain Size and Extent.of.. Cavitation . Strain 
Rates Were 5X10 -2 s _1 and 5X10 s , Respectively. 

Etched Using Graf-Sargent Solution. 
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were 0.4-0. 5 at approximately 300 C and resulted in 
superplastic ductility in a structure consisting initially 
of fine subgrains rather than grains. These observations 
suggest further development of dislocation models is needed. 
Also, it appears that current grain boundary sliding models 
seem inadequate to explain the observed behavior. 
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V. CONCLUSIONS AND RECOMMENDATIONS 



The conclusions drawn from this research are: 1) warm 

rolled Al-10 . 2 %Mg-0 . 52%Mn alloy is superplastic at 

temperatures as low as 275C; 2) the warm rolled alloy 

exhibits elongations of 400% at 300 C and strain rates of 
-3 -1 

5X10 s ; 3) the warm rolling is responsible for the super- 
plastic response at lower temperatures (near 300 C); 

4) grain boundary sliding appears to be the predominant 
superplastic deformation mechanism at higher temperatures 
(above 300 C), based upon activation energy data; 

5) microst ructural data indicates that the structure prior 
to testing consists principally of fine subgrains rather 
than grains. 

Recommendations for further work are: 1) microstruc- 

tural analysis be conducted to reconcile the observations 
of activation energies appropriate for boundary sliding 
with the observations of dislocation substructures being 
present; 2) investigation into alloying effects on micro- 
structure and superplasticity; 3) examination and further 
analysis of microstructural effects of annealing and 
recrystallization in this alloy. 
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Figure A. 1 True Stress vs True Plastic Strain Data for Testing Conducted at 20 C for 
Al- 10 . 2%Mg-0 . 52%Mn „ Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 1 
Hour, Oil Quenched, and Warm Rolled at 300 C to 94% Reduction. 
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Figure A. 2 True Stress vs True Plastic Strain Data for Testing Conducted at 100 C for 
Al -10 . 2%Mg-0 . 52%Mn . Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 1 Hour, 
Oil Quenched, and Warm Rolled at 300 C to 94% Reduction. 
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Figure A. 3 True Stress vs True Plastic Strain Data for Testing Conducted at 150 C for 
Al- 10 . 2%Mg-0 . 52%Mn. Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 1 Hour 
Oil Quenched, and Warm Rolled at 300 C to 94/£ Reduction, 
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Figure A. 4 True Stress vs True Plastic Strain Data for Testing Conducted at 200 C for 
Al-10. 2%Mg-0 . 52%Mn. Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 1 Hour, 
Oil Quenched, and Warm Rolled at 300 C to 94% Reduction. 
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Figure A. 5 True Stress vs True Plastic Strain Data for Testing Conducted at 225 C for 
Al-10. 2%Mg-0. 52%Mn . Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 1 Hour 
Oil Quenched, and Warm Rolled at 300 C to 94% Reduction. 
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Figure A. 6 True Stress vs True plastic strain Data for Testing Conducted at 250 C for 
Al-10 . 2%Mg-0 . 52%Mn. Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 1 Hour 
Oil Quenched, and Warm Rolled at 300 C to 94% Reduction. 



STRESS VS STRAIN 



o 




cvavvossaais anai 



55 



TRUE STRAIN 

Figure A. 7 True Stress vs True Plastic Strain Data for Testing Conducted at 275 C for 
Al-10. 2%Mg-0 . 52%Mn . Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 1 Hour 
Oil Quenched, and Warm Rolled at 300 C to 94% Reduction. 
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Figure A. 8 True Stress vs True Plastic Strain Data for Testing Conducted at 325 C for 
Al-10.2%Mg-0.52%Mn. Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 1 Hour, 
Oil Quenched, and Warm Rolled at 300 C to 94% Reduction. 
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Figure A. 9 True Stress vs True Plastic Strain Data for Testing conducted at 350 C for 
Al-10. 2%Mg-0 . 52%Mn • Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 1 Hour, 
Oil Quenched , and Warm Rolled at 300 C to 94% Reduction. 
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Figure A. 10 True Stress vs True Plastic Strain Data for Testing Conducted at 375 C for 
Al-10. 2%Mg-0. 52%Mn . Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 1 Hour, 
Oil Quenched, and Warm Rolled at 300 C to 94% Reduction. 
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Figure A. 11 True Stress vs True Plastic Strain Data for Testing Conducted at 400 C 
for Al-10 . 2%Mg-0 . 52%Mn . Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 
1 Hour , Oil (Quenched, and Wnrin Rolled at 300 C to 94% Reduction. 
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Figure A. 12 True Stress vs True Plastic Strain Dal., far Testing Conducted at 425 
Al - 1 0 . 2 %Mg-0 . 5 2 %Mn . Solution Treated a 440 C lor 24 Hours, Annealed at 440 C for 
Oil Quenched, and Warm Rolled at 300 C to 94% Reduction. 
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Figure A. 13 Ductility vs Temperature Data Comparing As-Rolled to Recrystallized Data for 
Testing Conducted at 5.6X10 _2 s _1 for Al-10 . 2%Mg-0 . 52%Mn . Solution Treated at 440 C for 
24 Hours, Annealed at 440 C for 1 Hour, Oil Quenched, and Warm Rolled at 300 C to 94% Reducti 
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Figure A. 15 Ductility vs Strain Rate Data for Testing Conducted at 200 C for Al-10 . 2%Mg-0 . 52X 
Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 1 Hour, Oil Quenched, and 
Warm Rolled at 300 C to 94% Reduction. 
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Figure A. 16 Ductility vs Strain Rate Data for Testing Conducted at 250 C for Al-10 . 2%Mg-0 . 52%1 
Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 1 Hour, Oil Quenched, and 
Warm Rolled at 300 C to 94% Reduction. 
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Figure A. 17 Ductility vs Strain Rate Data for Testing Conducted at 275 C for Al-10 . 2%Mg-0 . 
Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 1 Hour, Oil Quenched, and 
Warm Rolled at 300 C to 94% Reduction. 
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Figure A. 18 Ductility vs Strain Rate Data for Testing Conducted at 325 C for Al-10 . 2%Mg-0 . 
Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 1 Hour, Oil Quenched, and 
Warm Rolled at 300 C to 94% Reduction. 
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Figure A. 19 Ductility vs Strain Rate Data for Testing Conducted at 400 C for Al-10.2%Mg-0. 
Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 1 Hour, Oil Quenched, and 
Warm Rolled at 300 C to 94% Reduction. 
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APPENDIX B 



xo 

c 



c 

20 

c 

30 

c 



c 

40 

c 

50 

C 



c 

60 

C 

70 

C 



c 



TRUE STRESS \S T RLE STRAIN T=300C 

THIS PROGRAM COMPUTES TRUE STRESS AMO STRAIN FROM INPUT FILES r c 
ENGINEERING STRESS AND STRAIN, AND THEN PLOTS TRUE 
STRESS AGAINST TRUE STRAIN. 

EXTERNAL SLOPE 

REAL A L { 10 ) ,A2( 1C) ,A3( 10 J ,A4(10) , A5 ( 1 0 ) , A6 ( 1 0 ) 

REAL A 7 (10) y A € ( 1 C ) , A9( 10) tAlC(10) »L£G?AK( 500) 

REAL 01 (10) ,32 ( 1C) ,B3( 10 ) ,84 (10 ) f B5 ( 10 ), 86( 10 ) 

REAL B7(10),B6(1C),B9(10),B1C(10) 

REAL SI (10) ,S2(1C) ,S3( 10 ) , S4 (10 ) ,S5( 10 ) ,S6( 10) 

REAL S7(10)fSE(lC),S9(10)tS10(10) 

REAL El (10) ,62(10 ,E3(10) ,E4(10) ,E5( 10) ,E6( 10) 

R*AL E7(10> ,68(10 ,E9<10) ,E10(10) 

REAL C»C,E,S»CHG»TC,TD 

INTEGER I ,PT S 1 , PT S2,PT S3 *P T $ 4 ,PTS 5, PTS6 
INTEGER PTS7 ,PT$E ,PTS9 ,PTS10 
1=0 

WRITE ( 6 t 5 ) 

CONTINUE 

I=t*l 

PEAO( 57 ,* , ENC =20 )A1 (I ) , B1 ( I ) 

$1 ( I ) ■ A 1 ( I ) * ( 1 *8 1 ( I) ) 

El ( I ) = A LCG ( 8 1 ( IK1 ) 

ADJUSTMENT FG P INSTPON ***** 

C=5« 34- 
C=.05 
E=E1 ( I ) 

S=S1( I ) 

CALL SL OPE ( C , C , E »S , CHG ) 

EKI )=CHG 

WRITE (6, DAK I) , SKI) ,31(1), E1(I> 

GC TO 1C 
CONTINUE 
PTS1M-1 

111111111111111111111 

1=0 

WRITEt 6 , 5 ) 

CONTINUE 
1=1 + 1 

REAO( 54,*,ENC=40 )A2(I) ,82(1) 

S2 (I) =A2 (I )* { 1+62(1)) 

E2(I)*ALCG(B2(I)+l) 

A C JUS TM ENT FCP INSTPON ***** 

C=10.4 
C = ,l 
S = S2 ( I ) 

E=E2( I ) 

CALL SLCPE(C,C,c,S, CHG ) 

£2(1 ) =CHG 

***i*t-* 

WRITE(6,2)A2( I) ,S2(I),82(I) ,E2( I) 

GC TO 3 C 
CONTINUE 
PTS2 = 1—1 

222222222222222222222 

1=0 

WRITEt 6,5) 

CONTINUE 
1=1 + 1 

PEAO t 56 ,*,ENC=60 )A3 (I ) ,83(1) 

S3 (I )=A3( I )* t 1 +03(1 ) ) 

E3(I)=ALCG(B2(IK1) 

ADJUSTMENT FG P INSTPON ***** 

C = 1 1 « 6 
C=.017 
S=S 3 ( I ) 

E=E3 ( I ) 

CALL SLCFEtC , C , E',S , CHG ) 

E2( I )=CHG 

***** 

WRITE (6 ,2 ) A3 ( I ) ,52 ( I ) , 33 ( I ) , 22 ( I ) 

GC T T 5 C 
CONTINUE 
PTS3 = I— 1 

‘3‘22' 3 ' a ' a ^' 3 ‘ 3 ' 3 ' a 3‘ a ' 3 ' 3 ' a-3 ' 3 2‘ 3 ' a 33 333 



WR I TE ( 6 , 5 ) 

CONTINUE 

> 1+1 

REAO( 55 ,*»ENC = 80 )A4 (I) , 84 ( T ) 

S4 ( I ) =A 4 ( I ) * ( 1+84(1)) 

£4(1 ) = A LCG ( 8 4 (I)+l ) 

ADJUSTMENT FCF INSTPON ***** 

C = 1 4* 2 
C = «0 5 
S=S4( I ) 

E=E4( I ) 

CALL SLOPEt C , C ,E,S ,CHG ) 

£4 ( I ) =CHG 

***** 
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80 

C 

90 

C 

C 

100 

C 

200 

C 

C 

300 

c 

400 

c 

c 

500 

C 

600 

C 

C 

700 

c 

300 



WRITE (6,1) AM T) ,S4( I ) f Q4(I ) , E4 ( I ) 

GC TO It 
CCNT INUE 
P7S4=I-1 

4444444444444444444444444444 

1=0 

WRITE( 6,5) 

CONTINUE 

i=r+i 

RE AO ( 53 »**ENC=1CC)£5(I ) ,e5( I ) 

S 3 ( I ) - A 5 ( I ) * ( 1 *0 5 ( I ) ) 

E5 ( I ) =ALCG( B5 ( I ) +1 ) 

AC JUS TMENT FCP INSTRQN ***** 

C = 23 • 7 
0-.13 
S=S 5 ( I ) 

E = E5U) 

CALL SL CFH ( C f C ,E,S,CHG) 

E 5 ( I ) =ChG 

***** 

WRITE(6,2)A5(I),S5(I),B5(I),E3(I> 

GC TO 90 
CONTINUE 
PTS5*I-1 

55555555555555555555555535555 

1=0 

WR ITE ( 6 » 3 ) 

CONTINUE 
1=1 + 1 

REAO(52,*,ENC=3CC)A6(I) ,86(1) 

S 6 ( I ) = A6 (I )* ( 1 •» e6 ( I ) ) 

E6(I )=ALCG(86(I)+n 
ACJUS T MEM FCF INSTRON ***** 

C=*1.4 
D=.133 
S = S6 ( I) 

E=E6 ( I ) 

CALL SLCPE(CtC,E,S»CHG) 

E6 ( I ) = ChG 

WR ITE ( 6 » 3 ) A6 ( I), 56(1), 86(1), Ed ( I ) 

GC TO 2CC 

CONTINUE 

PTS6=I-1 

666666666666666666666666666666666666 

I=n 

WRITE (6 i 5 ) 

CONTINUE 

1=1*1 

REAO(40,*»ENO=5CO ) A7 ( I ) » 87 ( X ) 

S7(I ) = A 7 (I )*(14P7( I) ) 

E7 ( I ) = A LOG ( 8 7 ( I ) *1 ) 

ADJUSTMENT FCF INSTFON ***** 

C =5 8 • 

C=,25 
S = S7 ( I ) 

E = E7 ( I ) 

CALL SLCPE(C »C»E »S » CHG ) 

E7( I ) =CHC- 

4 **** 

WRITE (6 ,1) A7( I) ,S7(I ),87(I) , E7( I) 

GC TO 400 
CONTINUE 

77777777777777777777777777777777777777 

1=0 

WR I TE (6*5) 

CONTINUE 

pi AO (39 ,* ,ENC=7C0 )A8 (I ) » B8 ( I ) 

S S ( I ) = A € ( I ) * t 1+88(1) ) 

E8 ( I ) = ALCG ( 6 8 (I)+l ) 

ADJUSTMENT FCF INSTRCN ***** 

C=56. 

C*.l 
$ = S3 ( I ) 

E = E3 ( I ) 

CALL SLCFE(CtC » E »S » CHG ) 

E 6 ( I )=CFG 

4**** 

WRIT=(6 ,2) A 8 t I) .38 (I ) . B8 (I ) . £6 ( I ) 

GC TH 6CC 
CCNTINUE 

85898888668388 6 66 6286038858886688 
1=0 

WR ITE ( 6 > 5 ) 

CONTINUE 
I =1 +1 

REACH 38.*.SNC=9CC)A9(I I ,89(1) 

S5 ( I )=A9( I ) * ( 1 ie9( I ) ) 

E9( I ) =AICG( 09(11+1) 
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c 



c 

900 

C 

1000 

c 



c 



1100 

c 

c 



c 

c 

c 



AC JUS TM ENT F CP INSTPON 
C = 75o a 

0 = . I 
S = SQ( I) 

E = 69 ( I ) 

CALL SL CPE ( C ,C ,E ,S,CHG) 

£9 ( I ) =C Ms 

WRITEt 6 ,3 > A9 (I) , $9< I ) , 89( I ) , E9< I > 

GC TO 8 CO 
CCNTINUE 
PTS9= I— 1 

999999 c 9999999 99 9 9 99 99999 999 

1 = 0 

WR IT c ( 6 » 5 ) 

CONTINUE 
1 = 1 + 1 

PEAO( 36 .* ,EN0=11CC ) A10 « I ) ,610(1 ) 

sio ( i i = 4io (i >* (i +eio( i ) ) 

E10 ( I ) = 4LQG ( H 1G ( I) + l) 

ACJUSTMEM FCP INSTRCN ***** 

C=il 9. 

C = „35 
S=S10(I ) 

E=E1 0 ( I ) 

CALL SLOPE(C »C »E»S» CHG ) 

E10 ( I )=CHG 

***** 

WRITS (6 , 1 1 A1C ( I ) , S10< I ) , 8101 I ) > E10! I ) 

GG TO icCO 
CONTINUE 
PTS10= 1-1 

lcicioicicioicicicicioioioioicio 

CALL COMPRS 
CALL SMOCTH 
CALL P0LT3 
CALL BLOWLPI.EE) 

CALL F AGE (1 1 . , So 5 ) 

CALL y I XALF ( 1 INSTRL ' I 
MAXLIN=LINEST!LcGPAK ,500,20) 

CALL LINES! • 1.4X10! EH. 5>-4S 
CALL LINES! • 2. 8X10 < EH. 5 >-4S 
CALL LINES < • 5.6X 10 < FH. 5 )-4I 
CALL LI NES (• 1.4X10! EH. 51-31 
CALL LINES! • 2 .8X 10 ( EH. 5 )-3 S 
CALL LINES t ■ 5.6X10 (EH. 5 )-3 t 
CALL LINES! • 1 .4 X 10 < EH. 5 ) -2S 
CALL LINES! ’ 2.3X10!EH.5I-2S 
CALL LINES! • 5.6X10! EH. 5 )-2$ 

CALL LINES! ’ 1.4X1C! EH. 5 )-l$ 

CALL NYLEGN! • STRAIN RATES 1 
CALL FUHRA 

CALL SFCCHR(9C.,1,. 002,1) 

CALL THKCRV(.C2I 
CALL HEIGHT!. 2) 

CALL XNA ME ( ’ TRUE STR A INS • , 100 ) 

CALL YNAME! 'TRUE STR ESS (!) MPA < ) ) $ ’ , 100 ) 

CALL AREA20 ( 8.C.6.C) 

CALL HEACIN ( • I • ,100, .5 ,2 ) 

CALL HEACIN! 'STRESS YS STRA INI • , 100 , 1 .5 
CALL GRAF(0. , .1 , 1.0,0. ,50. ,22C.) 

CALL THKFPM ( .03 I 
CALL FRAME 

CALL CURVE(E1»S1,PTS1,+1) 

CALL CURV6(E2 ,S2 ,PTS2,*1 ) 

CALL CURVE!53,S3,FTS3,+1) 

CALL CURVE(S4 ,S4,FTS4, *1 ) 

CALL C UP YE ( E5 ,S5,PTS5,h1) 

CALL CUR VE( E £ ,S6,P T S£,-*-l ) 

CALL C UR YE ( E7 ,S7 ,PTS7 » +1 ) 

CALL CURVE(E8 ,S8 ,FTS8 , *1 I 
CALL CURVE(E9 ,S9»PTS q ,>I) 

CALL CURVE(E1C ,S1C,PTS10, +1 ) 

CALL RESET! • TFKCPV ) 

CALL RESET ( ' HEIGHT* ) 

CALL LEGENO ( LEGPAK ,10,5.5 ,3. ) 

CALL BLR EC ( 5. 2, 2. 7, 2. 5, 3. ,.02) 
WkWWWWWWWWWWWWFWWWWWW 

CALL MESSAG! 1 TEMPERATURE = $ • , 100 ,2. , 4. 5 ) 
CALL INTNO ( 3 0 C , ’ABUT*. ’ABUT' ) 

CALL MESSAG!’ ( Eh. 3 ) 0 ( EX HX ) C $ ’ , 100 , ’ ABUT ’ , 
CALL BLR EC (loS, 4. 4, 2. 7, .4, .02) 
WWWWWWHWHWWWWUHWWWWWrt 

CALL MESSAG! ’ AL— 10.25MG— 0. 52 ?NM$ ' ,100,2.5, 
CALL BLR EC (2.2, 5.4, 2. 6, .4, .02) 

WLWUUkWkhhkhkkWkkWWWW 



, LEGP AK , 1 ) 

, LEGPAK , 2 ) 

, LEGPAK , 3 ) 

, LEGPAK, 4 ) 

, LEGPAK, 5) 
.LEGPAK, 6 I 
, LEGPAK , 7 ) 

, LEGPAK, 3) 

, LEGPAK, 9 ) 

- .LEGPAK, 10) 
1/SI’ ,16) 



,2 ) 



• ABUT ' ) 
5.5) 
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CALL mfcc AG (•END CATA °CINTS CC NOT S • , 1 00 , 1. 2 , « 1 ) 

CALL M E S S A G ( ' INCICATE FRAC7UP?$ ' , 100 , • 40 UT* , ' ABU T ' ) 

CALL BLPEC(l.lfC6r4.9f.24f C2) 

CALL GR I C ( 2 » 2 ) 

CALL END PL (0 ) 

CALL OCNEFL 
FCRMATt IX* 4F 1 2. 5 ) 

F C R M A T (1X»4F12*5 ) 

FCRMATt 1 >,4F12* 5 ) 

C* FORM AT ( lx r 12 ) 

5 FCRMAT(1X,/,4X,'ENG STRE SS r r 2 X r * TRUE STRESS' r 2X , ‘ENG STRA I N f r 2X » 

9 'TRUE STRAIN 1 , /) 

STOP 

SUBROUTINE SLCPE (C » C ? E » S »CHG ) 

REAL CrCr,E,S,ChG # TCrTO 
TC=C^( l.+O) 

TC=A LOG ( C + l • ) 

CHG=F-S*TO/TC 
IFtCHG.LE.O* )GC TC 11 
GC TO 21 
11 C HG=0 • 

21 CONTINUE 

RETURN 
ENO 
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on 



C 

C 



2C0 

c 

c 



1 

c 

2 

c 

c 

3 



4 
C 

C 

5 

C 

c 

6 



S3 A T C.i S T "ii'l VS c iT 

jt>: r» * J* - ri * at a 

i ( ! C r . ) ,e ( 1 T> ) , S22 ( 15 ) ,3R2<3( i 
SISCtlS) , SRI 50 (15) ,3200(1 5) , 
SR2CC (15 ) ,S225 (1 5 ) ,SR225( 15 ) 
S21!(1S),SR275(15> ,£300(1 5 ) , 
3R2 2SUS) ,53 50(15) ,SR250< 15) 
S4CC (IS) ,SR400 (15 ) ,S425( 1 5 ) 



PL0T3 ST'’ 

41 * 7 !*: TUI 

CIMPMSICN 
CIMENSICN 

cruris i cn 

GIMf=NSICN 
DIMENSION 

DIMENSION . - - 

INTEGER I » J » C * c » F , K » L » , N » P » C 
INTEGER PTS1 , PTS2,F7S3 , P TS4 , FT S5 ,PT S6 , 
INTEGER FTS10 ,FTS11 ,PTS12,PTS13 
P TS 1 = 6 
PTS2=3 
PT S3= 12 
PTS4— 6 
PT S5- 3 
PT S 6= L2 
PTS7=6 
PT S3 = 3 
P7S9- 11 
PTS 10 =6 
PTS11 =3 
PTS12=3 
PTS13 =3 
1*0 
0=0 
E=0 
F=0 
J=0 
K=0 
L=0 

p=0 

N=0 
P* 0 
C=0 

CONTINUE 
1= 1 + 1 

WRITE (6 ,2000 ) I 

REA3 ( 95 ,*,2NC=10C)A (I) , 8 (I ) ,C (I ) 

WF I TE ( 6 » 3000 )A( I ) 2 E (I) ,C(I ) 

- -- TC ' 



1 

2 

3 

4 

5 

6 
7 

3 

9 

10 



rp i i c i o i *■ ( i / * c 

I F < 8 ( I) .E0..129 ) GC 
I F ( 8 ( I) . EQ. . 2 7 6 )GC TO 
IF ( 8 C I ) *EQ.o556 ) G C TQ 
I F ( 9 ( I ) o EQ. 1 . 2 S ) GC 7C 
IF ( Q ( 1 >.20.2.78 ) GC TO 
I F ( B ( I) .EC. 5. 56 )GC TO 
I F ( B ( I J.2C.12.S )GC TO 
I F { 3 ( I) .EC. 27. 8 ) GC TO 
IF ( 3 ( I) • EC. 5 5 • 6 ) GC ^0 
I F ( B ( I ) .EQ.12S. ) GC TO 
CONTINUE 
J=J+1 

S20(4)=A(I) 

SR20 ( J)*C( I ) 

WRITE(6,1C0C)$2C(J) tSR20(J> ,E(I) 

WP ITE ( 6 ,2000 )J 
GC TO 2 C C 
CONTINUE 
C=0+1 

WR 173 ( 6 , 200 C )C 
S100( C ) = A ( I ) 

SR 100 ( 0 ) =C ( I ) 

WRITE (6 , 100C >S1CC(C > ,5Ri:0( D ) ,8( I > 

GC TO 2 CC 

CONTINUE 

E=E+L 

SI 50 ( E ) = A ( I ) 

SRI 50 ( E )=C ( I ) 

WRITE(6fl000 )S15C(E ) »S R 1 50 ( E ) »B ( I) 
WRITE (6 ,2000 )E 
GC TO 2 CC 
CCNTINUE 
F = F+1 

WRTTE (6 , 2 0 0 C ) F 
S200 ( F ) = A ( I ) 

SR 200 ( F )*C( I > 

WRIT^ (6 ,100C >S2CC( F ) ,3R2C0( F ) ,8(1 > 
GC TO 2 CC 
CONTINUE 
K = K>1 

S225 ( K ) = A ( I ) 

SP225 (K ) =C ( I ) 

WRITE (6 ,1000 )S225(K },SR225(K) ,B( I) 

WRITE (6 ,2000 ) K 

GC TO 2CC 

CCNTINUE 

L=L*1 



L?E. 

s — 

5 > , 31 00 ( 15 J , 3 R 100 ( L c ) 
LEG PA K ( 5 D 0 ) 

,3250(15) , SR 250 ( 1 5 ) 
SR300 (15 > » S 3 25 ( 15) 

,33 75(15) , 3R3 75 (15 ) 
SR4 25 ( 1 5 ) ,C( 100) 

PT S7 , PT S3 , PT S9 



72 



c 

c 

7 

c 

c 

3 

C 

C 

9 

C 

C 

1C 

C 

C 

ion 



c 

c 

c 



c 



1COO 
200 C 
300C 



WR ITH ( 6 ,200? ) L 
32 50 { L ) -4(1 ) 

3R 250' ( L ) =C ( I ) 

i3S r Xl ( 6;1000 )S25C(U ,SB 250 (l) ,8( I) 

UU • ■ J 2 C C 
CONTINUE 

,w=M+l 

S 27 5 ( M ) * i ( I ) 

SR275IH ) =C ( I ) 

ITS (6 .1000 )S27 5( H ),SP2 75 (M ),e< I) 

V»« ITc ( 6 , ^000 ) N 
GC T7 2CC 
CONTINUE 
N=N+l 

WRIT5I6 ,2000 IN 
S300I N) =A( I ) 

Sfl 300 (N !=C( I ) 

(6,1000 ) S2CC (N ) ,SR300 ( N I ,8(11 
UU ' Q 2CC 
CONTINUE 
P=P+1 

WATT" (6 ,2000 I P 
S225 ( P ) = i ( I I 
2P 325 ( P ) =C ( I ) 

6.1000 I S3 2 5 (P ) ,SR325(P I ,8(1) 

GC 0 2CC 
CONTINUE 
C-Q + l 

W P I (6 ,200^ ) c 
3250(G) =4(1 ) 

SR350 ( C ) -C ( I ) 

GC ! ra ( 2cc°° u )S3fC(C ,fSR350(C) ,em 

CCNTI NUE 
CALL CCPFRS 
CALL BL ChU? ( * £ 5 ) 

CALL MU4l c ( • TNS7PU' ) 

PAXLIN=LIN5$T (LEGPAK ,500 ,20 ) 

^ ALL , L JM§ { ! 2 J P H -2 >lhgpak , 1) 

L i NFS ( 1 ' .EX 1C ( Eh. 3 )-Ai ' , LEGPAK ,2 ) 
LI NES( • 5.6>10(?H o 5)-4S' LEGPAK 3 
L I N ES ( ' !.4X10( c Ho 5 1-3 i* J LEGPAK 4 ) 
LI NES ( 1 2.8XIC ( EH. 5 ) -3 $ 

LI NEC ( 1 SOICI EH. 5)-3S 



CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CA LL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 



LEGPAK ,5 ) 
, LEGPAK ,6 ) 
, LEGPAK , 7 ) 
, LEGPAK ,8 ) 



L I N E5 ( 1 1*4*10(5 H® 5 )-2S' 

LI NES ( 1 Z.EX1C( FH. 5 )-2S» 

LINES( ' 5.8X10 (EH. 5>-2S» , LEGPAK ,3) 
LINES ( • !o4UG( EH. 5 )-iS • , LEGPAK ,10 
VYLEGN ( ' 57R4TN PATPC 1/**» ? 16) 



VYLEGNt 1 I7RAIN PATEG'l/Si 1 
FAGEdl. ,6.5) 

-U7LF.A 
3HCCHP ( ,l,o :02 , 1 ) 

THKCPV ( oC2 ) 

HE I GHT ( .2 ) 

X N d ^ E { * 7 E i v P E P A T UP E ( E H. E ) 0 ( EXH X ) C S • , 100 
YNAME( , 37PE5S tj 7.1 STRAIN {()NPA()) S' 

AR c A2D ( 5. , 6 j ) 

HEACIN ( ' V ,100,. 5,2 ) 

REACH ( 1 STRESS VS TEMPERATURES' ,100,1.5, 
GR A F ( ■)<, , 5 C 3 ,45 C* , 3. ,100. ,600. ) 

THKFR‘1 ( . C2 ) 

FFAHE 

CURVE( SP2C , S2C ,PT$1 , + 1 ) 
CUFVE(SR10?,S1C0,PTS2 , ♦ 1 ) 

CURVE ( SR 1 3C ,S150,?TS3 , + l ) 

CURVE ( SR 200 ,S2C0 , P TS4- , + 1 ) 

CURVE ( SR 22 5 ,S2 25, PT35 , >1 ) 

CURVE ( SR 25 0 ,32 5C,PT56 , + l ) 
CUPVE(SR275,S275,PTS7, *1 ) 
CUFVt(SP2CC,S2C0,PTS8 ,+l ) 

CUPVE( SP225 ,S225,PT39, ♦ 1 ) 

CU FVE ( S R 250 ,33 50, PTS1 0 , ♦ 1 ) 

CURVE ( SR 27 3 ,32 75, PTS11 , >2 ) 

CURVE( SR4CC ,34C0, PTS12 , + 1 ) 

CURVE ( SR 42 3 ,S425, PTS13 , >1 ) 

R E SET ( 1 ThKCFV ' ) 

RESET ( » FEICRT’ ) 

LEGEND (LEGPAK ,10,5,2.5) 

3LP EC ( 4 . I f 2.2 , 2.5 , 3. ,.02) 



CALL ME 3 SAG ( 1 AL- 10. 25MG-0.5 2 1PNS f ,100,2.5,5 
CALL 8 LREC ( 2.2,f.4,2.6,.4,.C2) 

CALL GR I C ( 2 , 2 ) 

CALL ENCPL(Q) 

CALL DPNEPL 

FORMAT ( IX, FI Co 4 ,1X , F 10 .4, IX, F10o4) 

FCRM A T ( 1 > * I 3 ) 

F CRM AT ( 1X,3F12.3 ) 

STOP 

END 



) 

,100 ) 
2 ) 
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no 



C 

c 



2 CO 

c 

c 

c 

1 

c 

c 

2 

c 

c 

3 

c 

c 

c 

4 



5 
C 

C 

C 

6 

C 

C 

7 

C 



FLCTS LCG STRESS ^ \ ITTsMb 73. ICG STRATI ^ATC. 

* * * afc.x * * a 4 X x: : : ■* :t * Tl’t?-'-- *..'V + -Hi ■♦“: ..n^ixx 

01 VENSICN A ( ICC ) *e ( 100 ) f S20( 1C) . SR2C( 10 ) f S100 ( n ) f SRIC0( 10 ) 
■ S15C(1C) , 5 P 1 5 0 ( 1 C ) ,5200(10) , L5G ? AK ( 300 ) 

S p. 2 C C ( 10) » 322 5 (10) ,SP.22 5( 10 ) , S 2 50 ( 1 J > , SR 253 ( 1 3 ) 

32 7 3(10 ,5F275(10) , 33 " 7 ( 1 C ) , SR 300 ( \ 0 ) , 33 25 ( 10) 

Sr. Ill ( 1C) ,3350(10 ,33250 ( It) ,S3 75 ( 1 3 ) , 3? 3 75 ( 10 ) 

S ACC ( 1C ) ,5R400(10) ,3425(10 *5R425( 13) ,C( 100) 

, J 

FT$1 , RTS 2 , FT S3 ,PTS4, FT S3 ,?T 56 , PT S7 , PTS3 , ?T S9 
FTS 1 0 , FT 5 1 1 , ?TS12»PT 513 



CIMP.NSICN 
OIMSNS IC\ 

Cl Merisi CN 
DIMENSION 
dimension 

INTEGER I, 

INTEGFR 
INTEGER 
PTS 2= 2 
PTS3=3 
PTS4=7 
PTS5=7 
PTS6= 10 
PT S7= 10 
PTS8 = 10 
PTS9- 7 
PT SI 0 = 3 
PTS 11 = 3 
FT S12 =3 
PTS13=3 
1=0 

CONTINUE 
I = I + 1 

WRITE (6,2000 ) I 

READ ( 9 5 »* t2NC = l CC ) A ( I ) ,6(1) ,C(I) 

WRITE( 6 ,2030 ) M I ), E (I ) ,C (I ) 

I F { I . GT . 2 ) GC TO 1 

5100 ( I)=A(I Ml. 36 

SR 100 ( I ) =9 ( I M.CC1 

WRITE (6 , 100 C ) 5 1 C C ( I ) f SRlCO ( I ) 

GC TO 2CC 
CONTINUE 

I f ( I • GT *5 ) GO 1C 2 
J*I-2 

WRITE (6 ,2000 ) J 

51 30 ( J) = A( I )*1*3£ 

5R 1 50 ( J J =6 ( I ) - • CC 1 

WRITE (6 ,1000 ) S15C ( J ) ,3R133 ( J ) 

GC Tf D 2CC 
CONTINUE 

IF(I.GT.12)GC TC 3 
J=I-5 

WRITE (6 ,2000 ) „ 

5203 ( J ) = A ( I ) * 1 • c 6 

SR200 ( J ) =8 ( I ) ^ • CC1 

WRITE (6 ,100C ) 52CC ( J ) ,5R2C0 ( J ) 

GC r 0 2CC 
CONTINUE 

££££££££££££££££££££££££££££££££££££££££££ 

I F { I.GT.1SJGC TC 4 

J=I-12 

WRITE (6 ,2000 ) J 
S225 ( J)=A( I ) * 3 . E £ 

5R 22 5 ( J ) =8 ( I )*.JC1 

WRITE ( 6, HOC ) 522 5 ( J ) ,SR225( J ) 

GC TO 2 CC 
CONTINUE 

I F ( I. ST. 29) GC TC 5 
J=I— 1 9 

52 50 ( J)=MI ) * 1 ♦ £6 
SR 250 ( J ) =8 ( I M.SC1 
WRITE ( 6 ,2000 ) J 

WRITE ( 6 , 1 C 0 C ) 523C( J ) ,3R250( J ) 

GC TO 2CC 
CONTINUE 

££££££££££££££££ £££££££££££££ ££££££ £££££££ 

IF( IoGT.39)GC TC 6 

J=T-29 

*RITE(6 ,200 0 ) J 

S2 75 ( J)=/( I )*loc6 

SR 2 7 5 ( J)=0( T )*.3C1 

WRITE (6 , 100C ) 52 7 3 ( J ) , SR 2 75 ( J ) 

GC TO 2 CC 
CONTINUE 

I F ( I.GT.49JGC TC 7 
J= I — 3 9 

S300 ( J ) = A ( I ) *1.26 
SR300 ( J )=«( I )*.CC1 
W R I TE ( 6 ,2030 ) J 

WR ITS ( 6 , 1000 ) 53CC( J ) , 3R300 ( J ) 

GC TO 2 CC 
CCNTINUE 

££££££££££££££££ £££ £££ ££££££££££££££ ££££ ££ 
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c 

c 

3 



c 

9 

C 



c 



c 

1C 



c 

c 

11 

c 

c 



c 

1 00 



c 

c 



c 

c 

c 

c 

c 

c 

c 

c 

c 



I F ( I.GT.561GC TC 3 
J= 1 — 4 9 

WRITE (6 ,200 C ) J 

S 225 ( J) =A( I ) < l.E i 

SR 325 ( J >=B( I X. ;C1 

WRITE (6 ,1000 ) $2 2 5 * J ) ,SR3 25 ( J ) 

GC TO 2CC 
CONTINUE 

I F { I.GT.591GC TC 9 
J=I-5 6 

S250 ( J) = A* I )*1*E£ 

SR350 { J )=8( I ]*.0C1 
WR IT E { 6 ,2000 ) J 

WRITE {6 ,100 0 >$35C( J ),$R3 50 ( J ) 

GO TO 2 C C 
CONTINUE 

££££££££££££££££££££££££££££££££££££££££££ 

IF ( I 0 GT «£2 ) GO TC 1C 

J=I-59 

WRITE ( 6 ,2000 )U 
S 3 7 5 ( J 1 = A ( I ) * 1# 5 £ 

SR375 ( J )=8( I ) w 0 C Cl 

WRITE (6 ,1000 )S2T5(U),3R3 75{J) 

GO TO 2 CC 
CONTINUE 

IF*IoGT«65)GC TO 11 
J-I-A2 

$400 { J) =A< I m.Ef 
SR40 9 ( J 1=8* I )*.CC1 
WRITE (6 , 200C ) J 

WRITE { 6 ,100C ) S 4C C ( J ) ,SR4C0( J ) 

GO TO 2CC 
CONTINUE 

£££££ ££££££££££££££££££££££££££££££ £££££££ 
J= 1—6 5 

WRI^E (6 ,2000 ) w 

5425 ( J 1 - A ( ! )*l e i6 

SR425 ( j )»e* i h.:: l 

WRITE ( 6 ,1000 ) 54 2 5 ( J ),3R^25 { J ) 

GC T 0 2CC 
CONTINUE 
CALL CONPkS 
CALL BLCWUP(.I5) 

CALL SMCCTH 
CALL D S M7H 
CALL P A C* E { 1 L. ,5.5) 

' .. f 20 ) 



^ A XL I N= LINE ST (LiCPAh,5O0,20 
CALL LINES* 1 1CCS' ,LfGPAK ,1) 
CALL LINES* ' 1 50 1 1 1 ' rn A ^ “» 4 
LINES* ' 2 CO I 
LINES* ' 2251 



CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 



* n C C 1 
' 35 fi 1 



LINES* 

LINES * 

LIN^S* 

LINES* 1 2 CC S 
LINES* '225! 
LINES* • 35C J 
LINES* ' 2751 
LINES* 1 ACTS 



,LCSPAK,2) 

,l:g?ak,3) 

, L ~GP A K ,4 ) 
, LSGPAK ,3 ) 
, LZGPAK ,6 ) 
, LEGP AK ,71 
, LEGPAK , 1 ) 
, L EG? A K f a ) 
, L EG? AK ,2) 
, l - G? A K ,9 ) 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



c 

c 

c 

c 



c 



1000 
200 C 
300C 



LINE i ( 1 4 2 5 S 1 > L : ^ K , 1 0 ) 

4 IX ALF ( ' IN S TP L ' ) 

FUTLPA 

SHCCHRl SC. , 1 , • C02 » 1 > 

THKCPV ( # C2 ) 

HEIGHT ( • 2 ) 

XNAMr! ' STRA IN AT E S< EH . 5 )-l$ • , iTC ) 

YNAMF! • STPESS AT 0.1 STRAIN ({ ) P A ( ) ) S • , 1 0 J ) 

ARE A 20 ( E.,6.) 

H £ A C I N ( • i' , 1 CO » • 5 »2 ) 

HEACIN( ' STRESS VS STRAIN RATE S • , 1 20 , 1. 5 , 2 ) 

LCGLQG ( . CCC 1 ,2. ,o0GC30C* >3# ) 

THKFRHI . C2 ) 

FF AME 

CURVE!SP1CC,S1C0,PT$2,*1 ) 

CURVE! S R 1 SO , S 1 30 » RT S3 , +1) 

CURVE(SR2CC,S2C0,PTS4, >1 ) 

CURVE (SR 223 ,S 2 25, R T $5 , >1 ) 

CURVE (SR 25C ,32 30, RTS6, +1 ) 

CUFVE(3R275,$2T5,?TS7,*1 ) 

CURVE! SPECC , S3 CO. P Tr 3 ,+ I ) 

CURVF(SP325 ,3325, ?T39, ♦ 1 ) 

CURVE! SR2SC ,S3S0,?TS10 , +1 ) 

CURVE(SR275tS275. PT311, ♦]> 

CURVE! SR ACC ,3400 , RTS12 , *1 > 

CURVE! SR^2S ,3425, PTS13 , +1) 

RESET! 'THKCRV * ) . 

RESET! 'HEIGHT* ) 

W Y L EGN ( 'TEMPERATURE C$' 

LEGE NO ( LECPAK .2,6. , o3 ) 

8L R EC ( 3 . S » o 2 i 2 ? » 1 • ♦ « 0 2 ) 

TEMPS TC 325 COMMENT GUT 'LINES' FCR 350-425 A NO VIC: 
FCR TEMPS 250*-*+25 CHG LEGENO FPGM 3 TO A* AND BLREC 



0.521HNS' ,120,3.1 ,.6) 
A , o 0 2 ) 



CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
FCR 
ALSO, 

1 * 4. 

VbWWWWUWWWWWbWWWWfcWWW 

CALL ME SSAG ( ' AL- 10. 2SMG- 
CALL PLFEC(2oS,o3,2o6,« 
WWfcWW WlwWWWWliWW VWinWUW* 

CALL GP 10(1 ,1 ) 

CALL ENCFL(O) 

CALL OCNEPL 

FCRMAT! 1X,F2C.S,1X,F20.12) 
FGRMAT! IX, 13 ) 

FORMAT! IX, 3F12.S ) 

CT^p 

ENO 



,13 ) 



VERSA,. 
2.4 TC 



76 



c 

c 



200 

C 

C 



1 

c 

c 

2 

c 

3 

C 

C 

A 

c 

c 

5 



^ S IRA IN ^ T Z v: 1 /T 

■♦rzi? '<■*::*:* *rs:-:'r 5i * x.::^3>n.'« -: 

* (ICC 1 ,B( 100 1 , 520 ( !5) ,SR2C( 151 ,SIC0( L5 ) , SRI "*0(1 5 I 
S15C115) ,SR15C(15) , S20J ( 1 5 ) , LEG PAK ( 5 30 ) 

S?2CC(15) ,2225(15) ,SR225( 15) ,S250(15) , SR 250 (15) 
S27 5 ( 1 5 ) , SR2 7 5 (15 ) *S3^° (13)* SR300 ( 15 ) , S325( 15) 

S 73 25 (15) ,33 50(15) ,SP3 50 <15 I ,S375 <15) ,SR275 (15 I 
S AC C (15) , 5P^00 (15) ,S425(1 5) , SR A25 (15) ,C( 100) 

» J , C » 6 ? F , K » L , ^ » N , P » C 

PTS1 ,PTS2 ,PTS3 ,?TSA , FTS5 ,PT 26 , PT S7 , PT S3 ,?TS9 
PTS1C ,?TS11 ,PTS12,P T S13 



, C ( 1 1 



PLOTS 

C IM*=NS IfN 
Cl PENSION 
CIMFNSICN 
DIMENSION 
C I . Mf E?4 S I CN 
C I PEN S ICN 
IMf-GeP I 
INTEGER 
INTEGER 
PTS1 = 5 
PTS2= 6 
PTS3 — 7 
PTSA=7 
PTS 5= 7 
PTS6-5 
PTS7= A 
PTS8=3 
1=0 
C=0 
e=o 

F^O 
J=0 
K=0 
L=0 
*=0 
N=0 

continue 
1 = 1+1 

W P IT 7 : ( 6 , 2Q0C ) I 
R E AD( 57 ,*,ENC=1CC ) A (I) ,8(1 ) 

WRITE (6 ,3000 11(11,8(1) »C(I) 

I F ( C ( I) .EQ.25. )GC TC 1 
I F ( C ( I) •EQ*5C. )GC TC 2 
I F ( C ( I) • EG. 7 5 • ) GC TC 3 
IF (C ( I ) .SQ.iCC, )C-C Tn A 
I F ( C ( I I .EC.15C. ICC 
I F ( C ( I ) • cC*2CC. IC-C 
I F (C ( I) .EQ.3CC. ) GC 
IP(C( I ) oE0.35C. )GC 
CONTINUE 
J=J + 1 

S 20 ( j ) = e ( i ) 

SR 20 ( J) =MI ) 

WR ITE ( 6 ,100C ) S2C (J ) ,SR20 (J ) , E (I ) 
WRITE (6 » 2C0C ) J 
GC TO 2CC 
CONTINUE 
C = 0 + 1 

WR ITE ( 6 ,2000 )C 
S100( 01=0(1)* 

SP103 (0 )=A( I ) 

WRITE (6 ,1000 )S1CC(C ),SR1C0(D) ,8( I) 

GO n 2 CC 

CONTINUE 

E=e+i 

s 1 50 ( E) =e( I ) 

SR15D (E )=A( I 1 

WRITE (6 ,1000 )S15C(E)tSP150(5),a(I) 

WR ITE ( 6 , 230 0 ) E 

GC TO 2CC 

CONTINUE 

F= F + 1 

WRITE (6 ,2000 ) F 
S2C0( F ) = e ( I ) 

SR 200 ( F )=A( I 1 

WRITE (6 ,1000 ) S20C (F ) ,SR200 ( F) ,8 ( I ) 
GC TO 2CC 
CONTINUE 
K = K+l 

S 225 ( K 1 — 8 ( I 1 



TO 

TO 

TO 

TO 
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c 

c 

6 

C 

c 

7 

C 

c 

a 

c 

c 

ICO 

c 

c 



c 



c 



100C 
200 C 
30CC 



SP 225 ( K ) = a ( : ) 

V»F IT: (6 , lt>Ou ) S22S ( K > ,S*2 25 (K > ,8< ! ) 
WF I T 2 { 6 ,20 07 ) K 
GC TQ 2CC 
CONTINUE 
L = L + 1 

WRITE (6 ,2000 ) L 

52 50 ( L) *e< I ) 

SP250 (L )«A( I ) 

WRITE <6 ,1000 ) 525C ( L ) ,5 R 2 50 ( L ) , B ( I ) 
GC TO 2 C C 
CONTINUE 
M + l 

S275< M)*e( I ) 

5R275 (M)=A( I ) 

WRIT? ( 6 , 109C ) S2 75( ,SR275 (f* ) ,8 (IK 

WRITER ,2000 U 
GC TO 2CC 

continue 

MN+l 

UP ITE ( 6 ,2000 U 
S3 J0( N ) = 6 ( I ) 

5P300 ( N > = A ( I I 

WRITE (6,1000 ) S 2C C ( N ) »3R3Q0(N),8(I) 

GC TO 2CC 

CONTINUE 

04 L L COFPRS 

CALL BLCVUPUEE) 

CALL SMCCTH 

CALL PSMH 

CALL PAGE ( 1 1 o , So 3 ) 

MAXLI N = L INE ST ( L E GP A H ,5 00 , 20 ) 

CALL L U6S ( »25S 1 ,LE GPAK , 1) 

5 CS 9 , Lc G PA K , 2 ) 

7 55 9 » LEC-PA K , 2) 
lCCi » ,L5GPAK ,4 ) 

15CI r , LcGP AK ,5 ) 

2CC i • ,LEGPAK ,6) 

3 CC S r , L E GP A K T 7 ) 

3 50 5 • , LEG? A K ,3 ) 

• 1NSTRU • ) 



CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 



LUES* 
LINES* 
LUES ( 
LUES! 
LINES* 
LUES ( 
LUES! 
M IXALF 
FU7LRA 
SbCCHR 
THKCPV 
HE ICHT 
X N A f - E * 
YN AME ( 
AR EA 20 
H6ACIN 
HEACIN 



9 C o , 1 , « C02 , 1 ) 
oC2 ) 

• 2 ) 

1 /T K( Eh. 5 >-!$’ , ICO ) 

STRAIN PATE S*cH«: )-l$» ,10C> 

E • , 6 e ) 

’ i»,lC0,.5,2) 

'STRAIN PATE VS !/T$ »,100 , 1.5,2 ) 
YLCG(,rCI4,o3CC2,o0C01,l«8) 

TH K FRM ( • C3 ) 

FRAME 

CUPVE( SR 2 C , 5 20 ,PTS1 ,-l ) 

CURVE (SP 100 ,S1C0,PTS2 ,-l ) 

CUFVE* SF150 ,S130,?TS3 ,-l ) 

CUPVF* SP CCS ,S2C:,PTS4,- 1) 

CUFVE(3R 225 ,S2 25 , PT S3 , - 1 ) 

CURVE* SR 252 » 22 50 , P TS6 » - 1 ) 

CUP VP* SR 27 5 ,S27 5, ?TS7,-1 ) 
CUFV < =(3R2C':*£3'“?,PTS3,-I) 

R E S E T * 9 ThKCRV * ) 

3ESE^ ( • h E I GhT ’ ) 

M Y L 2 ON ( 9 STRESS MPAS’, 10 > 

LEGENC(LHGFAK,f ,5. 9,1. 5] 

3LFEC ( 5 o z fi , wo , 2 o2t . C c ) 

V V V W W *• w 

CALL MESSAG * • AL-1C«2*MG-Q.5 2 3MNS' , L CC , 4 . 5 , 5. 5 ) 
CALL SLFFC(4*2 ,3o4 ,2© 6 , «4, • C2 ) 

WWWWWtftl*WWift*l*fck V V W W W U „ 

CALL CPIC(1,1) 

CALL ENC FL ( 0 ) 

CALL OCNFPL 

FORMAT ( IX , F2C .5 , IX ,F20. 12) 

FORMAT ( IX, 13 ) 

FORMAT* 1 > » 3F 1 2« 5 ) 

STOP 

ENO 
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2C0 

C 

C 



C 

c 

4> 

C 

c 

5 



C 

C 



PICTS A 'LONG \ : lE>?2.**VJZz . 

0 1 N p N S I C N M1CQ ) ,c ( 100 ) , SCO ( 15 ) , SR20( 15 ) ,S100 ( 15 ) ,SRLCO(L 5) 
CINfcNSICN 515C(15) , SR 1 5 0 ( 1 5 ) ,S2C0(15) 



OI'-ENS ICN S40C (13) , £R^OO (15) ,5425( 1 5 ) ,SR425< 15) , C ( 100 ) 
INTE'ocR I »J » C ,c, F*K » L » M » N , P , C 

INTEGER PTS1 , FT $2, PI S3 ,P T S4,F7S5 ,PT S6 ,FTS7,PTS8 ,PTS9 
INTEGER FTS1Q,P7S11 ,?TS12 , PT S13 
P7S1=6 
PTS2 - 3 
FTS3 = 13 
P7S4=6 
PTS5 = 3 
P7S6=13 
PTS7=6 
P7S8=3 
P7S5=13 
PTS10 = 7 
P7S11=3 
PTS12=3 
P7S13 =3 
1=0 
0=0 
E=0 
F = 0 
J=0 
K=0 
L = 0 
M= 0 
N=0 
P=0 

c=o 

CONTINUE 
1*1+1 

W F I T c (6 ,2003 ) I 

READ( <?6 ,* tENOlCC )MI) ,8(1 ) ,C(I ) 

WRITE ( 6 ,3000 ) M I ) , e ( I ) , C (I ) 



TO 

TD 

70 
70 
TO 
70 
70 
T 0 
7 C 

TO 



1 



3 

4 

c 

6 

7 

3 

9 

10 



I F ( R ( I) ♦EG* .129 ) C-C 
I F ( B ( I ) .EG.. 2 78 )GC 
I F ( 0 ( I ) o ECo o 3 5 6 ) C-C 
I F ( B ( I ) *80. 1 • 2 5 ) GC 
I F ( 9 ( I ) .EG. 2. 78 )GC 
I F ( 9 ( I ) • EG. 5 o 56 ) GC 
I F ( B < I ) .EQ. 12.9 )GC 
IF ( B ( I ) .SQ.27.8 ) GC 
I F ( B ( I ) .EG. 5 5.6 ) GC 
I F ( 0 ( I ) • EG. 1 2 5 e ) GO 
CCNTI NUE 
J = J + 1 

S20 ( J ) = A ( I ) 

SP20 ( J) =C (I ) 

WPITE(6,100C)S20(J) ,SR20(J) ,E(I ) 
WRITE (6 ,2000 ) J 
GC TO ?.CC 
CONTINUE 
C = 0+1 

WRITE ( 6,2007 )C 
$100( C)=MI) 

SP100 (0 )=C( I ) 

WRITE ( 6 , 100 0 ) SIC C ( C ) ,SR1C0( D ) ,B ( I ) 
GC TO 2 CC 
CONTINUE 
E = E+1 

SI 50 ( E ) = A ( I ) 

SR 150 ( E )=C( I ) 

WRITE (6, 100 0 )S15C(E) ,SR150( E) ,B( I) 
WRI7*E(6 ,2000 ) E 
GC TO 207 
CONTINUE 
F = e+i 

WR I^E ( 6 , 270C )F 
5200 ( F ) = A ( I ) 

SP200 (F )=C( I ) 

WRITE (6 ,100C )S2CC ( F ) ,SR2C0( F ) ,8 ( I ) 

GC TO 2 CC 

CONTINUE 

K=K*1 

S225 ( K ) = A ( I ) 

SP225 (K )=C ( I ) 

WR ITE (6 ,100 0 ) 522 5 ( K ),SR2 25 (K ) ,B( I) 
WRITE (6 ,200 0 )K 
GC TO 2 CC 
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onononnnn o o no 



6 CCNTINUE 
L= L + L 

C UR ITE ( 6 , 2000 ) L 

5250 ( L)=MI) 

SR 2 50 ( L ) =C ( I ) 

C WR ITE ( 6 , 100 0 )S25C(LJ»SP250(L ) » S ( I ) 

GC TO 2CC 

7 CCNTINUE 
P-M+l 

52 7 5( M ) — A ( I ) 

SP275 (M )=C( I ) 

C WRITE (6 ,1000 ) 522 5 ( M ) »S R275 ( M ),8( I) 

C WRITE (6 ,2000 )P 

GC TO 2CC 

8 CCNTINUE 
N = N + 1 

C WR ITc ( 6 ,2000 ) N 

S3 QO ( N ) - A ( I ) 

SR3 00 ( N I =C ( I ) 

C WRITE (6 ,1000 )53CC(N ) ,SR3C0 <N ) ,8 ( I) 

GC TO 2 CC 

9 CCNTINUE 
P = P+l 

C WRITE (6,2300) F 

5225 ( P) =4 ( I ) 

SR325 (P )=C (I ) 

C WRITE(6»1Q0C )S2 25(P ) ,SR3 25 ( P ) ,8(1) 

GC TO 2CC 

10 CCNTINUE 
C = Q + 1 

C WP ITE ( 6 , 2 nn ° ) C 

5 3 5 0 ( Q ) = A ( I ) 

SP350 (Q )»C( I ) 

C WRITE ( 6,1000 ) 525 C( C ) ,SR3 50(Q) ,8(1) 

GC to 2CC 

ICO CCNTINUE 

CALL COMPOS 
CALL 3L CWU° ( • £ 5 ) 

CALL PA Gc ( 1 1 • ,5 • 5 ) 

CALL M I X ALF ( » INSTIL ' ) 

CALL e U TUFA 

CALL SHCCHR (9C.»1,.C02,1 ) 

CALL THKCP.V ( .C2 ) 

CALL HEIGH T (o2) 

CALL XNAP-( 'TSMFEFA^URE ( E H . 2 ) C ( EXH X ) C $ 1 , 100) 
CALL Y N A ( f 2 ELCNGATI0N1* , ICC) 

CALL SMCCTH 
CALL °0 L Y3 
CALL PSVTH 
CALL AREA30 ( E. ,6.) 

CALL F6A C IN ( r V ,1°0,. 5,2) 

CALL HEACIN ( * CUCTILITY VS T E P F E R ATU P 5 $ 1 , 10 3 , L . 5 , 
CALL GF A F ( 0« ,5Co ,45C., 3. ,100. ,700o ) 

CALL TH K P C M ( oC2 ) 

CALL FRA PE 

CALL RE SE T ( f HE I GhT * ) 

WWWWWWWWWWrtwWWW 

CALL ME 5 SAG ( • STRAIN RATE = S * , 10 1 , 1 . , 3 . ) 

CALL REALNOt C.C56,-1,'ABLT» , 'ABUT* ) 

CALL M E 5 SAG ( * S ( Eh. 5 )- 1 * ' , 13C , ’ABUT ' , * ABUT » ) 

CALL 3LFEC ( o 5 ,2.5 ,2. ,. A, .02 ) 

WWWWWWWWWWWWWWVWWUWW^ 

CALL ME 55 AG ( » A L- 10 . 2 ?*1 G-C. 52 2PN $ • , 1 CO , 2 o 5 , 5.5 ) 
CALL 61 FEC ( 2.2 , 5. A ,2. 6 , .A , . C2 ) 
uwwwwwwwuwwwwww 
CALL CUFVE (SR2C ,220 ,? T 51 ,-l ) 

CALL CUFVE(5P 1CC,S1C0,PT52 , — 1 ) 

CALL CUPVE(SR15C,5150,PTS3,-1) 

CALL CUFVE (SR2CC ,5200, PTS4,-1 ) 

CALL CURVE( SR 225 ,5225, PT55 ,-l ) 

CALL CUPVF(SR25C ,S250,PTS6,- 1) 

CALL CUPVF{ SR275 ,5275 , PTS7 ,-l ) 

CALL CUPVE( SP2CC ,52CC,P T 58 » - 1 ) 

CALL CLFV6( SP325,S225 ,PTS9 ,-l ) 

C CALL CUPVE(SR25C ,S250,PT510 ,-l) 

CALL R655T( * ThKCPV * ) 

CALL G F T C <2 ,2 ) 

CALL ENCFL(O) 

CALL CCNEPL 

1CDC FORMAT ( 1X,F1C.4,1X,F10.4,1X, F10.A) 

200 C FCRMA T ( IX, 13 ) 

300C FCPMAT ( IX ,3 F12.5 ) 

STOP 

END 



80 



C PLOTS X SLCNG vs LCG ST^MN -AT£. 

CIM6NSICN A{ 100 J ,S( ICO) ,S2C( l 0 ) .SR2C ( 1C ) . S l 00 ( l C ) . SC 10CI 1C) 
(DIMENSION S 1 5 C ( 10) . 5R ISC ( 10) .S2G0( 1C) 

0IM6NS1 ON SR 2 00 ( 10), S225 ( 1U ) . SR 22 5! 10 ) . S25C! 10 ) .SR2SC l 10) 
OIMENSION S2 7 S ( 10) , SR27S ( 10 ) » S3 0 0 ! 10 ) » SR 3 00 (1 0) . S 32 S ( 1C ) 
DIMENSION SR 32 5(10). S3SO(lO) .SR3S0(1C).S37£(1C) .SR37E ( 10) 
DIMENSION SAOC( 10 ) . SR4CC ( 10) . S42S ( 10 ) .SR425! 10 ) .C( 1 00 ) 
INTEGER I.J 

INTEGER PTS1 .PTS2.PTS3.PTS4.PTS5.PTS6.PTS7.FTS8.FTS9 

INTEGER PTS1 C ,PT£ l i . PTS 12 .PTS 1 2 

PTS 1 =3 

PTS 2 = 3 

PTS3=4 

PTS4=7 

PT S5 — 7 

PTS6= 10 

PT S 7 = 10 

pts8= io 

PTS9=7 
PTS I 0=J 
PTS 1 1=3 
PTSl 2=3 
PTSI 3=3 
1 = 0 

200 CONTINUE 

I = I * l 

C *R I T E ( 6 • 2000 ) I 

READ ( 9b .^.ENC = l 00)A( I) • 6 ( I ) • C ( I) 

WRITE! 6 .200 0 )A( I ) . 6 ! I) • C ( I ) 

IF( I .GT .3 ) GO TQ t 
S20! I ) = A ( I ) 

SR 20! I ) =6 ( I ) - - 0 0 I 

C wR I T£{ 6 • 1 000 ) S20 ( I ) • SR20 ! I ) 

GQ TO 200 

1 CONTINUE 

IF ! I • GT • 6 ) G C TC 2 
J= 1-3 

C «fiITE(d*2000)J 

SlOO t J) =A( I ) 

srioo! j )= e ( i )-• co i 

C WRITE! 6. 1000)S10C! J) .SR1C0(J ) 

GO TC 20 0 

2 CONTINUE 

IF! I •GT. 10 JGC TC 2 
J= I-b 

C wR I TE! 6 .200 0 ) J 

SI 50 ( J ) =A ( I ) 

SR 150 ( J ) =8 ( I )-. CO l 

C «R I TE! 6 . 1000 ) S 1 50 ( J ) .SR 150 ( J ) 

GO TO 200 
2 continue 

C £.£.£. &*,£.&&&&&&& &£.£. 66 6 &&&&£.£.£.£.£.£.£-£.&& CX&E.E. 

IF ( I .GT . 1 7 JGC TC A 
J= I- l 0 

C *R ITE(6 . 2000 ) J 

S200 ( J ) = A ( I ) 

SR 20 0 ! J ) =8 ! I )-. CO 1 

C »R ITE(6. 1000 JS200! J ) .SR200(J ) 

GO TQ 200 
a CONTINUE 

I F ( I .GT .24 ) GC TO S 
J= l- 1 7 

S22 5 ( J ) = A ( I ) 

SR 2 2 5 ( J ) =8 ( I )-.00l 

C wR I TE ( 6. 2000 ) J 

C *RIT£(6. 1000 )S22S! J) .SR225! J ) 

GO TO 200 
5 CONTINUE 

IF ( I .GT . 34 ) GC TC 6 

J= 1-24 
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c A«irE(o.cCCO)j 

b2 50 ( J ) = a ( I ) 

SP250 ( J ) =6 ( I l^.CCl 

C ^ITE(b. 1000)S2=C( Jl ,SP250(J ) 

GO TO <i00 

e cqnt inue 

IF ( l .GT. 44 )GC TC 7 

J= 1-34 

S2 75( J) = A< I ) 

SR275I J ) =0 ( I l^.CQl 
*P 1TE(6.2Q00 ) J 

*P ITE<6 . 1000 ) S2 75 ( J ) .SP275 ( J ) 

GO TC 200 
CONT I NUE 

CCCCCC^LZCCCCCCCCCC &CCCCCCCCCCCCCCCCCCCCCC 
I F ( I • GT .54 )GC TC 8 

J=l-A4 

\«P I TE ( 6 . 2 0 0 0 ) J 
S300I J)=A< I) 

SP300( J ) =8< I l-.CQl 
v»«ITE(6. 1000)53001 J) . S F 3 0 0 < J ) 

GO TO 2 0 C 
CONTINUE 

IF ( I .GT.61 )GC TC 9 
J= 1-54 

S325 ( J) = A ( I) 

SP 325 ( J >=8< I )-. 00 1 
*PIT£<6.20Q0 ) J 

wPITE(6. 1000 ) S 3 25 ( J) • SF 3 25 (J ) 

GO TC 200 
CONTINUE 

CCICCCZ CLCC CCCirCCt'&CCCC, CCCCC C CCCCCCCCCCCCC 
IF ( I • GT • 6 4 ) G C TC 10 
J= 1-6 1 

*P ITE (6 . 2000 ) J 
S350 ( J ) = A ( I ) 

SP 350 ( J ) =6 ( I )-. 00 1 
WPITEI6. 1000 ) S3 5 0 < j) .SF3S0I J ) 

GO TO 200 
CONTINUE 

IF ( I .GT .67) GC TC 11 
J = 1-64 

S3 75 ( J) =4 ( I ) 

SP 375 ( J I = 8 ( I )*. CO 1 
*PITE(6, 2000 ) J 

WPITEI6. 1000 )S 3751 J ) .SR375(J ) 

GO TO 2 0 C 
CONT INUE 

LC, LCLEJ, Ktr&tCCC&CCCLC CLCCCLCC, C CL CC C C C C CC CC C 
IF( I .GT. 70) GC TC 12 
J- 1-67 

v»P I TE(6 .2000 ) J 
S400 ( J) =A( I ) 

SP400 ( J ) =0 ( l ) S . 00 1 
v»P I TE ( 6 . 1000)S400(j) . SF4C0 ( J ) 

GO TO 200 
CONTINUE 

tsCLCCE^CLCCGCCLCCCirCCC'C CCCLZCtC C&CCCCCC C£,C 
J= I- 70 

4PITE(6.2000)J 
S425 ( J) =A ( I ) 

SP425 ( J ) =8 I I ) CO 1 
«P I T E ( 6 . 1000)S4 25(J) .Sfi425(J) 

GO TO 2 0 C 
CONTINUE 
CAUL COMPRS 
CALL 0LO *UP< .85 ) 

CALL SMOCTF 
CALL PSMTH 
CALL PAGE ( 1 1 . .8 .5 ) 

CALL MI XALF( • INS7PU • ) 

CALL FUTLRA 
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CAUL Sh OCH fi { 90 i . 1 • • 0 G 2 * l J 
CALL Th < C R V ( . 02 ) 

call Ht I gf r < .2 j 

CALL XU ANE { • STR A [ N RUE S < cH . 5 ) - L t 4 . 4 C Q ) 

CALL YNAVE( tLCNOATICNU ,100) 

CALL AH6 A2D< d . . 6 . ) 

CALL H£ACIN{ ' I*. IOC. ,5. 21 

CALL H€ACIN( 'OUCTILITY VS STRAIN RAT£t ' , 1 CC • 1 *5 
CALL XLQG( .000 l .2 . .0 • . I 25 . ) 

CALL THKFPM( .02 ) 

CALL FRAME 

CALL CURVE < SR20 .S20 .RTS l I ) 

CALL CURVE (SR 100. S100.PTS2.-1 ) 

CALL CURVE {SRI 50 .S150 .P TS3.- I ) 

CALL CURVE(SR200 .S20G.PTSA.- 1 ) 

CALL CURVE( SR225 .S225 .P TS5 .- I ) 

CALL CURVE ( SR250 .S25C.P TS6 1 ) 

CALL CURVE(SR275.S27S.PTS7.- I ) 

CALL CUfl VE ( SR3G G .S300 .PTS8 .- I ) 

CALL CURVE ( SR325 .S325 .P TS9 1 ) 

CALL CURVc( SR350.S35G.PTSIG.-1 ) 

CALL CURVE( SR375.S375.PTSl l.-l ) 

CALL CURVE ( SRAOO .SAOC.PTS 12. - l ) 

CALL CURVE { SRA25 .SA25 .PTS13. - l ) 

CALL RESET( • THKCfiV ) 

CALL RESET! HEIGHT* ) 

C ** W W M MW W to to Wii to to to ft toft 

CALL MES SAG (• TEMPER A 7URE - S* .100. A. 5. 3.) 

CALL INTNO (A25. *A0UT • . • AEUT* ) 

CALL MESSAG( • ( EH .3 ) C( EXHX )C S • . 10 Q . • AEUT • . • A8UT 

CALL BLREC { A .3. 2. 9.2 .7 * . 4. .02 > 

C toWtototototo Wtotototototototototototoft 

C * w«wta»*»* »« *««*** 

call M£SSAG( • AL- 10.2 S MG- 0.52 XMN *• .IGG.3..5.5) 
CALL 0LR5C ( 2 .3 .5. A . 2. 6 . .A .. 02 ) 

CALL G3IC( l. 1) 

CALL ENOFL(O) 

CALL OONEPL 

100C FORM AT { 1 X . F20 .S . 1 X . F 20 . I 2 ) 

20 0 C FORMAT! 1 X. 13 ) 

3 0 0 C FORMAT! IX.JF12.5) 

STOP 

ENO 
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c 

c 

c 

c 

c 



10 

c 



c 

20 

c 

30 

c 



c 

c 

5C 

C 



C 

60 

c 



TRdE STcr$3 \z T FLE Al ^-ZOC 

T H [ 3 FFCGRA* CC>ei ( “S T FUE STRESS A NO STRAP: c R0M 
ENGINEERING 5 TR 535 AND HR A I N » AND H = N PLOTS TRUJ 
STRESS AGAINST TRUE STRAIN. ^ 

EXTERNAL SLOPE 

REAL A1 (10) , AH 1C ) , A3< 10 ),81 (10 ) ,82 ( 1C > ,32( 10 ) 

REAL S1(1Q) .S2(1C) tS3(10)tcl (10) ,c2(ld,c3(10) 

REAL C, C,E,S, CFG, TC, TO, LSGPAK (500) 

INTEGER I,PTS1,?1S2 ,?T$3 
1=0 

WRITE* 6,5) 

CONTINUE 
1=1 + 1 

REAO( 21 ,cN0 = 20 )A1 (I) ,81(1 ) 

SI ( I ) —Aid)* (1401(1)) 

El ( I ) -A LCG ( 8 1 ( I ) + 1 ) 

ADJUSTMENT FOP INST RON) ANO ELASTIC STRAIN ***** 
C=290. 

C=.0 1 5 
S=S1 ( I ) 

6=61 ( I ) 

CALL SLCFE( C rC ,c ,S ,CHG) 

El ( I ) =CHG 

***** 

WRITE (6 ,1) A1 ( I) ,SI ( I ), 81 (I ) , 51 ( I ) 

GC TD 1C 
CONTINUE 
FTSl*I-i 

linn ii 111113131 miniii 
1=0 

WRITE* 6,5 ) 

CONTINUE 

1=1+1 

REACH 22 ,* ,cNC =40 )A2 (I) ,82(1) 

S2( I) =A2(I )* ( 1 *QZ( I ) ) 

E2(I)=AICG(S2 (I)*l ) 

ADJUSTMENT FCP INS7FCN ANO ELASTIC STRAIN 
C = 387 9 
C = * 1 3 
S = S2( I ) 

E = <=2( I ) 

CALL SLCFEIC ,C ,2 ,S , ChG) 

E2 ( I) =ChG 

WRITE(6,1)A2( I) ,S2( I) ,82(1 ) ,E2( I) 

GC T1 3 C 
CONTINUE 
PTS?=I-1 

2 22 222 22 2222 22 2 22222 2222 2 Z 
1=0 

WRIT-* 6,5) 

CONTINUE 

1*14-1 

REAO( 23 ,* , E N C = 6 C )A2 (I) ,82(1) 

S3 ( I ) =A2( IP* ( 1 <8 2 ( I ) ) 

66(1) =A ICG ( 83(1)41) 

AC JUS T M E NT =CP INSTFCN AND ELASTIC STRAIN ***** 
C=368 • 

C = ® 1 5 

5 = S3( I ) 

6 = 63 ( I ) 

CALL S L C F E ( C ,C ,3, 3, CHG) 

E3( I ) =CJ-G 

4* A-s:* 

WRITE (6 , I ) A3 ( I ) ,53 ( I ), 83 (I ) , c2< I ) 

GC TO 5 C 
CONTINUE 
FTS3=r-l 

1^^:^333:331 *: t 

CALL COM F PS 

CALL 3 OL Y2 



INPUT FILES SF 
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CALL 3 LG ’*CP ( . a 5 ) 

CALL PAGE (11 o , 2.5 ) 

CALL V IXALF ( • INSTFU * ) 

MAXLIN^LINSSI (LGGPAH ,5^0 ,20 ) 

CALL L INFS ('?•£> 10 ( EH. « )-A>* f ,LFG?AK , 1 ) 
LINFS( * 5. 6X10 (EH. 5) -3 3* ,LCG^AK ,2) 
LINES ( ' Eo A >1C ( EH. 5 )-2$ • ,LGGPAK ,3) 



CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 



P YLEGN ( ' ST? 4 IN RATES L/Si',16) 
FUTLRA 

SFCChR(SC.,l,.CC2,l) 

THKf^V ( oC2 ) 

HE I CHT ( .2 ) 

XNAMEt * TRUE STR A IN $ • » 100 ) 

Y NAME ( ' T RLE STRESS ((IMPA())$',100) 



CALL A PE A 20 < 8. C,6.C ) 

CALL HEACIN { ' i',lC0,o5,2) 

CALL HEACINt 1 STRESS VS STP A I N i ' , 100 , 1. 5 ,2 ) 

CALL GRAFtQ. , . C C 2 C 1 ,0. , 10 0 . ,2 50. ) 

CALL THKFRM ( 0 C2 ) 

CALL FRANC 

CURVES GC HEP5 + +++ + + +++ + + -M-++ 

CALL CUR V E { E 1 ,21 ,FTS1,+1 ) 

CALL CURVE(62 ,22,F7S2,+1 ) 

CALL CURV6<33 ,S2 ,RTS2,+L ) 

CALL Rc SET ( 'TFKCRV' ) 

CALL RESET! * HEIGHT' ) 

CALL LEGEND (LFGRAK ,3, 5 0 4,3 0 ) 

CALL 3LP EC! 5* 1 ,2o 7 ,2*5 ,1.5 ,. C2) 

CALL MESSAG( McNF-FATURS = S • , 100 , 2 . , 2 . 5 ) 

CALL I NTNH{ 2C , * A 5LT * , ' ABLT’ } 

CALL MESSAG ( r !EHo3 >0! EX HX ) C i • , 130 , 1 ABUT • , 'ABUT* ) 
CALL BLPECd.S ,2. A ,2. 7, .4, *02) 

CALL MESSAG ( • t l- 1C. 23MG-0. 5 2 3NN $ • , 1 00 , 2 . 5 , 3 .5 ) 

CALL 8LFEC ( 2 « 3 , 2o 4 ,2o6,o4,<,c:> 

V to to to to rt 

CALL ME 5 SAG ( r EN C CATA °CINTS i * , 100 , 1 . 2 , . 5 ) 

CALL MGSSAGt f INCICATH FRACTURES* , 10C,* ABUT* , ' ABUT * ) 



CALL EL F EC ( U 1 

toMtonWtototo»*tototol,to 






a t o <_ *? , o 



02 ) 



CALL GR I C ( 2 , 2 ) 

CALL ENOFL(O) 

CALL DCN 6 PL 

1 FORMAT ( 1 X-, 2 F 12.5 , 1 X , 2 F 12 . 7 ) 

2 FORMAT ( IX , 4 F 12 . 5 ) 

3 FORMAT! 1 X,AF 12 <, 5 ) 

C A FORMAT (IX, 12 ) 

5 FORMAT (IX,/, AX , ' ENG STR 2 S S’ , 2 X , • TRUE STRESS ', 2 X ,' ENG STRAIN' 

£ 'TRUE STRAIM' , / ) 

STOP 

END 

C SUBROUTINE FCR CORRECTING IN 51 RCN AND ELASTIC STRAIN ***** 

SUBROUTINE- SLCPE (C ,C, 0 ,S ,CHG ) 

REAL C ,C , 6 , S , CFG , 7 C ,TD 
TC =C * ( 1 . + 0 ) 

TC = ALOG (C+l o ) 

CHG^E-S* 70 /TC 
IF(CHC.LE. 0 » )GC TC 11 
GC T ? 21 

11 CFG- 3 o 

21 CONTINUE 

RETURN 
END 



2 X , 
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nnnon 



10 

C 



c 

20 

30 

C 



4C 
5 C 

C 



C 

60 

C 



TRUE STRESS \$ T^Ur STRAIN AT TriQCC^C 

TH T S 2FCGR'i w COMPUTES T 3 U-T STRESS ANC STRAIN = R0 -1 I TJ PUT C ILFS CF 
-NG t Nc E F ING STRESS ANC STRAIh, AND THEN PLOTS T RUE 

E >TER NA L SLOPE 

REAL Al(n),A2(lC),A3(10),31U0),a2(lC),B2{lO) 

REAL SI (10) ,S2(LC) ,S3( 10 ),E1 (10 ) ,22 (10 ),£3( 10 ) 

REAL C tZtCtS , CFG, TC »T0 t LEG P A K ( 500 ) 

INTEGER I,?T$1,FT$2 ,PTS3 

r=o 

WR ITE ( 6 , 5 ) 

CCNTI NUE 
I-I + l 

REAO( 81 ,*,ENQ=ZG )Al(I)>3l(I) 

SKI) = A1(I)*(1*01( I)) 

61(1 )=ALCG(81(IMl) 

ACJUSTNENT FGF INSTPQN AND ELASTIC STRAIN ***** 

C = 350 » 

C = ,l 

s=s: 1 1 ) 

E = E1 ( I ) 

CALL SLCF£(C,C,E,S,CHG) 

El ( I ) =CbG 

WRITE (6 ,1)A1 { I ) ,S1( I ), 31(1 ) , F!( I ) 

GO TO LC 
CONTINUE 
PTSl-I-1 
1=0 

WR ITE ( 6,5 ) 

CONTINUE 

1 = 1+1 

R 6 AO ( 31»*» ENC =40 ) A 2 (I ) ,82(1 ) 

52 (I ) = A2 (I )* ( 1 **6 2 ( I ) ) 

E2 { I ) =A ICG ( 9 2 ( IM1 ) 

AC JUS TH E NT FOR INSTFON ANO ELASTIC STFAIN ***** 

C = 124 . 

0 = »0 3 3 
$= S2 ( I ) 

6 = 62 ( I ) 

CALL 3LCPE(C,C, c,S, CHG ) 

E2( I ) =CHG 

$ * ^crsrt 

WRITE (6 ,2) A2 ( I ) ,S2( I ), 32 (I ) , E2( I ) 

GC T 0 3 C 
CENT INLE 
PTS2=r-l 
1=0 

WR ITE ( 6,5 ) 

CONTINUE 
1=1 + 1 

REAO( 30 ,*,SNC=60 ) A3 ( I ) ,03(1 ) 

53 ( I ) = A 3 ( I ) * (1 i e 3 ( I ) ) 

62(1) = A ICC ( 8 3 ( I)+l ) 

ACJUSTFENT FCF INSTFON ANO ELASTIC STRAIN ***** 

C =4 36* 

C = . 1 3 
S = S3 ( T ) 

E= p 3( I ) 

CALL SLCPE(C,C,E,S,CHG) 

E2( I ) =CFG 

WRITE (6 ,3) A3 ( I ) ,S3 ( I ), 83 (I ) , F2( I ) 

GC TO 5 C 
CONTINUE 
PT S3 = I — I 

WW»WWWWWW*W C IME NS ION LEGPAK %%ZZZZ 

CALL CCMFFS 
CALL PCL>2 
CALL 9L0WL?(. 85) 

CALL PAGE (llo , E • 5 ) 
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iWNH 



c 

c 

c 

c 



ca 

5 

C 



11 

21 



,1 ) 
» 2 ) 
* 2 ) 



CALL v I X A L F ( 1 IN STPL * ) 

MAXLI N=l INEST (L2GFAK ,5C0 ,20 ) 

CA LL LINES ( * 5«6X 10 ( cH. 5 )-^S * ,L-GPAK 
CALL LI NFS ( * S.£X1C( EH. 5 ) -3 $ 1 ,12GPAK 
CALL LI NFS ( * E.EX10(SH. 5) -2 S' , LEGP A K 
CALL f'YLEGN ( * S7RA IN RATES 1/S1*,16) 

CALL FUUPA 

CALL ShCCHR ( EC. , 1 , .C02 , 1 ) 

CALL TH K C PV ( * C2 ) 

CALL H6IGHTU2) 

CALL XNAMF(*TRL£ STR A IN $ * , 100 ) 

CALL Y NA ME( 1 T RLE STP ESS ( ( ) MP A ( ) ) $ *, 1 00 ) 
CALL AFEA2D ( S.C»6*C) 

CALL HEACIN ( 1 S* .ICO, *5,2 ) 

CALL H6AC IN ( * STRESS \S STRAINS* ,100 , 1*5,2) 
CALL GRAF (0. , .C5, .3 , C., 10C. , 6CC* » 

CALL THKFRM ( .03 ) 

CALL FPAH= 

CALL CURVE(S1,S1.FTS1,+1) 

CALL C U R Nrf E ( E 2 » S 2 » FT S 2 » «* 1 ) 

CALL CUR V F ( 23 ,S2,FTS2»*1) 

CALL R r S E7 ( ' TI-KCFV* ) 

CALL RE SET ( »hEIGbT» ) 

CALL LEGEND ( LEG? AK ,2 ,5.4,3 . ) 

CALL BLFEC(5ol,2o7,2*5,la5,.C2) 

tofctotoWWWtottototottVtWtototto 

CALL M ESSAG(*TE M F3?ATURE - % * , 100, 2 ♦ , 2 * 5 ) 
CALL I NT NO ( ICC , * AEd* , * A eUT * ) 

CALL MES5AG ( * ( EK 2 ) 0( 3 XbX ) C i * , 1 00 , 1 A6 UT f 

CALL 3LFEC(lo£,2oA,Zo7,.4,o32) 

l> ^ V V to U to m w 



* ABUT' ) 



CALL y 5SSA G( • AL- 10. 52*f'N$',XCC,2. = ,3.5) 

CALL ELF*. ,2o4,2o6,a*+,#C2) 

tofcfrtotototototototototoirVtotoWtototo 

CALL MESSAG ( * END CATA POINTS CO NOT 5 * , 100 , 1. 2 , * 5 ) 
CALL ME£SAG( • INDICATE FR iCTU F Ef *, 100 , 'ABUT 1 ,* ABUT » ) 
CALL 3LPEC( la 1 ,• A4,5* ,.2 A,. 0 2 ) 



totototoWtotototototototototo 
CALL GRIC (2,2 ) 

CALL ENDFKO ) 

CALL DCNEPL 

FORMAT ( lX,2F12a5 ,1X ,2F12*7) 

FORMAT ( 1 X , 4 F 3 2 • 5 ) 

FORMA T ( 1 > ,4F I 2 • 5 ) 

FORMAT ( IX, I 2 ) 

FORMAT ( 1 X , / , ^ X , * ENG STRESS* ,2X,'TRUE STP C S S 1 , 2X ♦ * ENG STRAIN', 
a •TRUE STRAIN* ,/) 

STOP 

ENO 

SU3RQLTTNE FC? CCRP C CTING INS7RCN ANC ELASTIC STRAIN 
SUBROUTINE S L CP E (C , C , S ,CHG ) 

PEAL C ,C , C ,S ,CbG ,TC ,T0 
TC=C :S ( 1 o +0 ) 

TOALCG (C + l* ) 

CHG=t— S* TO/ TC 
IF(CHG. L E« )• ) GO TO 11 
GC TO 21 
CHG-0 • 

CONTINUE 

RETURN 

ENO 



c X , 
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nnnoo 



10 

C 



c 

20 

30 

C 



c 



AO 

50 

C 



C 

60 

70 



C 



C 

30 

C 



TRUE ST F'iSS to l : ST^itN A T ~ = 15 CC 

THIS RPCGRA> COFLIES "U: S 7t3 SSS A N C S TP ^ I TJ POQM rplj: 
ENGINEERING S^^ESS AND c to A I<N f *M0 THEN PLOTS TRUE 

JJ* J£ u l £J*-U***<**** ****** 

EXTERNAL SLOPE 

REAL A1 (10) ,£2(1C) ,A3(10)»B1 (10) ,32 (1C J ,e3(13 ) 

REAL $1 ( 1J) ,S2 (1C) ,S3( ID ) ,E1 (10) ,£2 (10 ) ,£3( 13 ) 

REAL A4(10) ,eA(lC) ,3A( 10 ),£A(10) ,LSGPAK( 500) 

REAL C ,C ,2, S »ChG ,TC ,TD 
INTEGER I,PTS1,F1S2 ,PT$3 ,PTSA 
1=0 

WRITE! 6, 5 ) 

CONTINUE 
1 = 1 + 1 

RE AO t 80 ,*,£NC = 20 )A1 (I) ,81(1) 

si { i) =ai { i )» ( nei 1 1 ) ) 

El (I ) = A L cg t s 1 ( I )+U 

ACJUSTNENT FOP INSTRON AND ELASTIC STRAIN 
C=213o 
C = • 13 
S=S1( I ) 

E = E1 ( I ) 

CALL SLCFE(C ,C ,c ,S ,CHG) 

El! I) =ChG 

WRITE(6»1)A1( I),S1(I),B1(1) ,61(1) 

GC TO 1C 
CONTINUE 
PTS 1= 1-1 
1=0 

WRITE! 6*5) 

CONTINUE 
1=1+1 

PE AO (A7,*,ENC=A0)A2(I) ,82! I ) 

S2( I ) = A2 ! I )-•< ( 1 -»e2 ! I ) ) 

E2 ( I ) =A L CG ( 3 2 ! I ) + l ) 

AC JUS TMENT «=rp INS7F0N ANO ELASTIC STRAIN 
C=255. 

0*.l 
S=S2 ( I) 

E = E2 ! I ) 

CALL SLCPE(C,C,E,S,CHG) 

62(1) = CFG 

W« ITS ( 6 , 2) A2 ( I ) ,S2( I ), 82 (I ) * £ 2 ! I ) 

GC TO 3 C 
CENT IN LE 
PT$2= 1-1 
1=0 

WRITE (6*5) 

CONTINUE 
1 = 1 + 1 

READ! A6,*,£ND=6C ) A3 (I) ,82(1) 

S3 ! I ) »ab m* (1<E3( D) 

E3 ! I) =ALCG( 32 ( X ) + 1 ) 

A C JUS TMENT FOP INSTFON ANO ELASTIC STRAIN ***** 

C=230. 

C = *l 
S = S3 ( I) 

E = E3 ( I ) 

CALL SLCFE(C ,C ,E ,S,CHG) 

E3 ( I ) =CHG 

WRITE! 6 ,2 ) A3 ( I) ,S3! I ) , 8 3 (I ) , E 3 ( I ) 

GC to 5C 
CCNTINUE 
FTS3*I-1 
1 = 0 

WRITE! 6,5 ) 

CCNTINUE 
1=1 + 1 



READ! 32 , ENC = 6 r )AA (I) » 8A{ I ) 

$ A ( I ) = A A ( I ) ‘ ( I ■» P A ( I ) ) 

EA( I) = A L CG ! 3 A ( I ) + 1 ) 

AC JUS TMENT FOP INSTFCN AND ELASTIC STRAIN +=***« 
C = 33 A>» 

C = » 1 
S = S4( I ) 

E=E4( I ) 

CALL SLCFE ( C ,C ,c ,S , CHG ) 

EA ( I ) =ChG 

WPITc(6,2)AA( I),SA(I),8A(I) , E M I ) 

GC TO 7 C 
CCNTINUE 
PTSA^I-1 

W w WWW WWW WWW 3322? DIMENSION LEGPAK 232322 



c I L 



88 



v/idunh 



C 



c 

c 



c 



c 



11 

21 



CALL COMPRS 
CALL PCLY2 
CALL 3LC^LP(.SS) 

CALL P AG 5 ( 3 1 • ,<• f ) 

CALL MI>*LF ( 1 INS7RU * ) 

MAXLI N - L IMS S T ( L2C-P A K ,5 10 ,20 ) 

CALL L I N ES ( 1 5*6Xi0(SH o 5) —4- $ ' , LEGPAK , 1 ) 

CALL LINSS( 1 5.6X10 dH* 5 ) -3 $ 1 , LcGP AK ,2) 

CALL LI NFS ( ' 5 . 6 X 1C ( 5H„ 3 > -2 $ * ,LEG?AK ,3) 

CALL LINES ( » loAXlO ( IHo 5 )-l , LEGPAK ,4 ) 

CALL *YLEGN( • STRAIN JUTES 1/$S*,16) 

CALL FUTLRA 

CALL ShCChRtFCo ,1,.C^2 rl > 

CALL THKC D V(„C2) 

CALL HEIGHT ( . 2 ) 

CALL X NA H £ { * T P LS ST P A IMS ' ,100) 

CALL YNAMEfTRLE STRESS ( ( ) MP A ( ) ) $ * , 1 0 0 ) 

CALL AHEA2D(8pC,6.0 ) 

CALL HEACIN( • S • ,100, .5 ,2 ) 

CALL HEAC IM( • STRESS \S ST° A I N 1 * , lQO , 1.5,2) 

CALL GPAFtOo iov.5 , o3 , v. o , 10C. , 6 C C • ) 

CALL THK F D M ( . C2 ) 

CALL FRANE 

CALL CURVE (El ,S1 ,FTS1,+1 ) 

CALL C UP V E ( E 2 ,S2 ,FTSZ.*1) 

CALL CUR V £ ( E3 ,S2,FTS2,*1) 

CALL CURVECE4 ,S4 ,F7S4,d ) 

CALL RE SET ( * THKCFV » ) 

CALL PESET( * HEIGHT* ) 

CALL LEGEND ( LEGFAK , 4*5.3 ,4. 5 ) 

CALL 8LREC( 5. ,^oS ,2o5,1.5,.C2) 

CALL MESSAG( 'TEMPERATURE = I • ,100 , 2 * , 2 o 5 ) 

CALL INTNOt 15C. •ABUT*, 'ABUT* ) 

CALL MESSAG( » (Sh .2 )C( =XHX) Cl* ,100, *Aei!T' , ’ ABUT 1 ) 

C A LL 3 L F EC ( .1 o £ 7, .4, .02) 

VWiWv^W W^v*WWW'r«wW V W W W W 

CALL ME £ SAG ( 1 A L- 10 . 2ZM3-0. 52 » , 1 CO , I . 7 , 5 .3 ) 

CALL 0 1 PEC ( lo 5 ,5.2 ,2o 6 , 0 4 ,. C2) 

CALL ME S SAG ( * EMC CAT', POINTS CC NOT i » , 100 , 1. 2 , * 5 ) 

CALL 4 ESS AG (• INDICATE FRACTURES • ,10 0 , ’ ABUT 1 ,» ABUT* ) 

CALL eLPECdol ioAA,4oO, o2A, oC2) 

CALL GRIC (2, 2 ) 

CALL ENDPl(O) 

CALL DCNEPL 

FCPMAT ( 1X,2 c 12o 5 ,IX ,2F12o7) 

FORMA T ( 1 > *4F 1 2 • 5 ) 

FOP MAT ( 1 > , 4F 1 S.f ) 

FC«M AT (IX, 12 > 

FORMAT ( 1 X , / * 4 X , * ENG STRE S3* , 2X , • TRUE STRESS * ,2X , * ENG S T R AI M * , 2 X , 
S'TRUc STRAIN * ,/) 

STOP 

END 

SUBROUTINE FCR CCRR2CTING INS7RCN ANC ELASTIC STRAIN ***** 

SUBROUTINE SLCF c (C,C,E,S,CHG) 

REAL C , C ,S, S , CFG , T C , TO 
TC=C*(1.*0) 

TC = ALCG (C + lo ) 

CFG=E-S*TO/TC 

I F( CHG. LE.O « JGG TC 11 

GO TO 21 

C H G — 0 o 

CONTI NUE 

RETURN 

END 



89 



c 

c 

c 

c 

c 



10 



20 

c 

30 



40 

C 

50 



60 

C 

70 



TP U f STRESS \S TP L 3 STRAIN AT ^=20C 
THIS PROGRAM COFLI5S " :, J: !7R ESS ANC S7R \IN f 
ENGINEERING '7RESS ANO STRAIN A .NO ">EN PLOTS 
STRESS AGAINST TRUE STRAIN* 

.tjnvJi r: ** > 4 W * *** i-«e ** -4 j*: + i * * 4 *■*:*»«* 

external slope 

PEAL U (10 ) , A 2 ( 1C) , 42 ( 10 ), A4 (10 ) ,A5 (10 ) ♦ A6( 10 ) 
REAL A7(1C) , A E ( 1 C ) , A 9 ( 1 0 ) » A 1 C ( 1 0 ) 

REAL 81 (10) t 6 2 ( !C ) ,02< 10 ), 8 4 ( 1C ) ,3 5 ( 10 ) ,36( 10 ) 
REAL 87(10), 86(10, 09 (10),81C(10) 

REAL SI ( 10) , SZ< 1C) ,S3( 10 ), S4(1C) ,S5 ( 10 ) , 5 6 ( 10) 
REAL S 7 ( 1 0 ) »56(1C)»59(1O)»51C(10) 

REAL 31(10) , £2 (1C) ,E3( 10 ),E4( 10) ,C5 (10), E6( 10) 
REAL 57(10) ,c8(LC) , E9< 10 ) , c 1 C < 10 ) 

REAL C ,C ,c , S » ChG , TC , TO , LEGP A K (500 ) 

INTEGER T PTSl ,?TS2 ,? T S3 ,PTS4 ,PTS5 , PTS6 
INTEGER PtS 7 , FT S8 » PTS9 » PtSlO 
1 = 0 

WR ITE ( 6,5) 

CONTINUE 
1 = 1 + 1 

REAO( 74,*,cNC=Z0 )A1 (I) , 81(1 ) 

S1(I)*A1 ( I ) : * ( bBK I ) ) 

El ( I ) = A LOG ( 81 ( I ) +1 ) 

AC JUS TNENT PGP INST PON ANO ELASTIC STRAIN ***** 
C**5.1 
C=.033 
$ = S1 ( I ) 

E=E1 ( I ) 

CALL SL C PE ( C ,C ,E,S, CHG) 

El ( I ) =ChG 

WRITE (6 ,1) A1 ( I) ,S1( I), 81 (I ) » El( D 
GC TO 1C 
CONTINUE 
PTS1= I - 1 

lniimiiiiiimiiii 

1=0 

WR I TE ( 6,5) 

CONTINUE 
1 = 1 + 1 

R EAQ ( 71 ,* , 2NC = 4 0 ) A 2 ( I ) ,32(1) 

S2( I) = 4Z( I ) * ( 1 *6 2 ( I ) ) 

E2 ( I ) = A LOG ( 8 2 ( I ) + 1 ) 

AC JUS TMENT FCF INSTrCN ANO ELASTIC STRAIN 

0 = 10*5. 

C = • 1 5 

S = S2 ( I ) 

E = E2< I ) 

CALL SLCP^(C ,C ,£ ,S,CHG) 

E2( I ) =ChC- 
***:-.•:*: 

WRITE (6 ,2) A 2 ( I) ,22< I) ,32 (I ) ,EZ( I ) 

GC TO 3 C 
CONTINUE 
PTS2= 1-1 

222222222222222222222 

1 = 0 

WRITE ( 6,5) 

CONTINUE 

I=t+l 

R E AO ( 45 ,* , cNC = 6C )A3 (I) , 83 ( I ) 

S3 < I ) =A2 ( I )* ( 1 -»B2 ( I ) > 

E3 ( I ) = A LCG ( R 2 ( I M l ) 

ACJUSTNENT FCP INSTFCN ANO ELASTIC STRAIN **»+* 
C = 106# 

C*.l 
S = S3 ( I ) 

E=E3 ( I ) 

CALL SLCFE(C ,C ,E,SrCHG) 

E3( I) =CHG 

*R ITE ( 6 , 2 )42 ( I ) ,S3 ( I ) , 3 3 (I ) , c 3 ( I ) 

GC TO rC 
CONTINUE 
FT S3 = 1-1 

•:ttr:3V3 , :v33V3';-r':‘:T3i < 33 32 :i 

*1=6 

WRITE (6,5) 

CONTINUE 
1 = 1+1 

RE AO ( 44 ,* » E N C = 0 C )A4 (I) , 84(1 ) 

S4( I ) = 44 ( I )-M 1 +e A ( I ) ) 

E 4 ( I ) = A L CG ( e4 (1)41) 

AC JUS TMENT FCP INSTPCN ANO ELASTIC STRAIN 
C=!13. 

C=.l 
S=S4( D 
E=E4< I ) 

CALL SLCFE(C,C,c,S, CHG ) 

E4< I ) =ChG 



ron i r : put 
TRUE 



c I L 



90 



90 

C 

90 



ICO 

C 

2 CO 



300 

C 

400 



5C0 

C 

C 



Wft ITE (6 , 1 ) A 4 ( I ) , 54 ( I ) , 84 < I) , 24 ( I ) 

gc 7 c 

CONTINUE 
P7S4= I- 1 

44444444444444**44 4 444444 *44 
1=0 

WR I TE ( 6,5) 

CCNTI NU6 
1 = 1 + 1 

READ( 43 ,*,ENC = 1CC )A5(I ) ,85(1 ) 

S5 (I ) =45 (I )* ( I +E5< I )) 

E 5 ( I ) = A LCG ( 3 5 ( I ) + 1 ) 

AC JUS THEM FCF INSTFOM ANO ELASTIC STRAIN «**-** 
C = 1 66 * 

C = .l 
S = S5 ( I) 

E = E5 ( I ) 

CALL SLC PE (C , C » c » S » CHG ) 

E5 ( I )=CHC- 
***•#*: 

WRITE (6 ,2)A5< I ) ,S5( I) , B 5 (I ) , E5( I) 

GC TG 9C 
CONTINUE 
PTS5= I— l 

55555555555555555555555555555 

1=0 

WRITE ( 6,5) 

CONTINUE 
1=1 + 1 

REAO( 42 ,*»5NC = 3CC)A6(I ) ,66( I ) 

S6(I)=A6(I) >(1+86(1)) 

E6 ( I ) =ALCG( 36 ( J ) +1) 

ACJUSTMEM FCF INSTFGI ANO ELASTIC STRAIN :-**** 
C=202o 
C = . 03 
S=S6( I ) 
c = E 6 ( I ) 

CALL 5LCFE(C,C,E,S,CHG) 

66(1 ) =ChG 
***** 

WR ITE ( 6 ,2 ) A6( I ) , 56 ( I ) , B6 ( I ) , c 6 ( I ) 

GC ^0 2CC 

CONTINUE 

PTS6M-1 

66666666666666 6 66 66666666 6666 6666666 
1=0 

WRITE (6,5) 

CONTINUE 
1 = 1+1 

READ ( 23 ,*,ENC=5CC ) 4 7 ( I ) , 87( I 1 
S7( I) = A 7 ( I ) * ( 1 +e 7 ( I ) ) 

E7(I) = A L C G ( B*7 ( I)+l ) 

AC JUS THEM FCF INSTpCN ANO ELASTIC STFAIN *** 

C = 257 * 

C = © 1 5 
S =S7 ( I ) 

E = E7( I ) 

CALL SLC FE ( C ,C ,E,S,CHG) 

E7( I ) =OG 



WRITE (6 ,1)A7( I ) ,S7( I ) , 87 (I ) , E7( I) 

GC T 0 4CC 
CCNTINUE 
PTS7 = I— l 

77777777777777777777777777777777777777 
DIMENSION LEGPAK 
CALL CQMPFS 
CALL SMOOTH 
CALL POL V 2 
CALL BLGWLP(o85) 

CALL PAGE(11. ,8.5) 



CALL *IXALF( ’INSTRL'M 
MAXLI N = L INHST (LEGPAh ,500 ,20 ) 
CALL LINES( , 1#4>1C(FH*5 )— 4 $ * 
LINES( 9 5.6X1C ( C H„ 5 ) -4 s 
L I NES ( * 1 .4X10 ( C H. 5 )-3S 1 



Lin»J\ .t ^ l J V n« j t — j ,t-tv 

LINES ( ’ 5.6> 10 ( EH. 5 ) —3 S ' ,LE< 
L I N E5 ( ' lo4X]C(FHo5)— 2$' ,LS( 
LINES( ' 5.6XlC(SH.5)-2$» ,LE( 



, LEGPAK ,1 ) 

, LEG PAK , 2 ) 

, LEGPAK ,3 ) 

, LEGPAK ,4) 

, LEGPAK ,5 ) 

LINtM ' i.tXlUiM. D l-'5' , LEGPAK ,6) 

LI NES ( M .4X10 (EH. 5) -IS ' , LEGPAK ,7) 
YYLEGN ( » STRAIN RATES L/S1’,16) 

FLTL9A 

SFCCFR ( 9C.,I ,.C02 , 1 ) 
th K C c V ( o C2 ) 

LALL HE IGHT ( o 2 ) 

CALL XNAME( * T FLE ST R A INS » , 100 ) 

CALL YNAME(»TFLE STR E SS (() MPA ())$•, 1 00 ) 
CALL A RF A2D ( 9<> C , 6oG ) 

CALL HEACINt » i* ,1C0,„5,2 ) 

CALL HEACIN( 'STRESS \S S7P A I.Ni • , 100 t 1.5 ,2 ) 

91 



CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 



u»ro^ 



C 



C 

c 



C4 

5 



11 

21 



CALI GRAF (O. 

CALL THKFRM ( oC2 ) 

CALL FPAM C 
CALL C U P V 6 ( E 1 , S 1 » FT S 1 , * l ) 

CURVE ( E2 “ ' 

CU° V e ( 02 



CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 



, $2 ,FTSZ,+1 ) 
. £2 , FTS2.+1 ) 
CUP V E ( EA ,S4,FTS4,+1 } 
C UP V E ( 2 3 , <5,FTS5»*l ) 
CURVE(E6,S6,FT56,+1) 
CURVED tS7 ,FTS7,+1 ) 
RE SS T { • ThKCPV • ) 



CALL REScK ' HEIGHT ' ) 

CALL L2GEND( LEGF/k , 7 ,5.5 ,3. ) 

C A LL 3L RFC ( 3 o 7 , 2 1 7 ,£®5»2o5t®C2) 

V»iN«ft»WhiAwWWv,»iwWVUUtf»UUH 



J 



CALL M E S SA G ( 'TEMPERATURE = S • , 100, 2 . ,4 .5 ) 

CALL I NTNO ( 2CC ♦ ' A8LT 1 , 'ABUT* ) 

CALL ME S SAG ( 1 ( SH©2 )0( EX FX ) C 5 • » 100 ♦ ' A8UT » , ' A8UT ' ) 

CALL SLPECd.f ,4. 4, 2. 7 ,.h,.0Z) 

W irt i* W H In W W W U W W V V * ie to Im ft * 

CALL ME S SAG ( ' A L- 10 * Z SMG—U 5 2 TFN $ 1 , 1 GO , 2 o 3 , 5® 5 ) 

CALL BLPEC(Z.2.3.4,2.6,.4, # 0Z) 

CALL MFSSAG( *EN0 CATA POINTS CC NOT S • , 100 , 1.2 » .1 ) 

CALL MESSAG( * INCICATE FQ AC^UPE S', 100 ABUT* ABUT* ) 

CALL 0LFEC(loItoC£f4o?»oZ4f*C^) 

CALL GRIC(2,2) 

CALL SNDFl(O) 

CALL OCNEFL 
FORMA T ( 1 > , 4 F 1 2 * 3) 

FORMAT( 1 X,hF12.5 ) 

FORM A T t 1X,4F12.5 ) 

FORMAT ( IX * I 2 ) 

FORMAT (IX ,/ t 4X , 'ENG STR E S S 1 , 2 X , ' TRUE STRES S ' , 2X , • ENG STRA(N»,2X 



i • TRUE STRAIN 1 ,/ ) 

STOP 

END 

SUBROUTINE SLCF2(C»l» 2».S»CHG) 
REAL C, C,E, 3, CFG, TC,Tn 
TC=C- ( 1® +0) 

TC-ALCG ( C+l • ) 

CFG=c— S* TO/ T C 

IF ( CH Go LEo 0 o )GC TC 11 

GC TO 21 

CFG=0. 

CONTINUE 

RETURN 

END 
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c 

c 

c 

c 

c 



10 



20 

C 

3 C 



40 

c 

5C 



6 C 
C 

70 



TRUE S T c ' SS \ 5 STRAIN AT T=22 3C 

THIS scrr,RA.v CC.**PLTES t ~U 2 STRESS A.NC STPAir, 
ENGINEERING S7 3 5SS AMD * T ^U, AND THEN PLOT 
STRESS AGAINST T R L E STRAIN. 



n cdom r 

S T°U F 



EXTERNAL SLOPE 
REAL A1 ( 10) ‘ 

REAL 
PEAL 



NAL jLUpc 

A1 [ 10) , A2C 1C ) ,A3( 10 ),A4 l 1C ) ,A5 l 1C ) ,A6( 10) 

A7ao) 9 a 8 < i c ) , ; g( 10 ),aicuo) 

He AL 31 (10) ,6 2(10 f e3( 10) > 84(10 J ,85(10) r 8 6C 10) 
PEAL B7 ( 10 ) ,68(10 )» 691 10 Jt 810(10) 

PEAL SI (10) , $2(10) ,221 10),S4(10) ,S5 (10) ,36(10) 
REAL S7(]0) ,5 6(10 ,<9( 10) ,310(10) 

PEAL El (10) ,£2(10),63( 10 ),S4(10),c5 (10),E6(10) 
REAL 67(10) ,66(10) ,E9( 10),clC(10) 

REAL C ,C,S,S ,ChG ,TC rTO , L EGP A K ( 500 ) 

INTEGER I ,PTS1,FTS2 , PT S 3 ,PT$4 ,PTS5 , PTS6 
INTEGER F T $7 , P T S S , P 7 S9 , P TS 1 0 
1=0 

W R I TE ( 6, 5) 

CONTINUE 
1=1 + 1 

PEAD-( 77,* ,ENC*2C1AT (I) ,31(1 ) 
si ( i ) = ai ( i ) * ( i **e i ( i j ) 

E1(I ) = A L CG ( B 1 (I)-H ) 

AC JUS TMEM FCF INS7F0N ANO ELASTIC STRAIN ***** 
C = 39. 1 
0.1 
$ = S1( I ) 

E=€l ( I ) 

CALL SLCFEIC ,C ,E ,S rCHG) 

El ( I ) =ChC 

***** 

WRITE (6»1)A1(I)»S1( I ) , 8 1 ( X ) , El ( I ) 

GC TO 1C 
CONTINUE 
PTS 1= 1-1 

111111111111111111111 

1=0 

WPITFt 6,5 ) 

CONTINUE 
I =T + 1 

READ(7R»*,cNC=4Q )A2(I) ,82(1 ) 

52(11 = A 2 l I )* (1 <e2 ( I ) ) 

£2 ( I ) = A LCG( 2 2 ( IH1) 

AC JUS TMEfd FCF USTFCN A NO ELASTIC STRAIN * 

C = 6 lo 

i = S2( I ) 

E=i2< I I 

CALL SLCFE<C,C,E,S,0-G> 

E2t I I =ChG 

***** 

WRITE (6 ,2) A2 ( I) ,52 ( I ), 02 (I ) , E2( I I 
GC TO 3 C 
CC 



122 27 2 2222 2 



wCNT I NU E 
PT S2= I — 1 
222222 227 2 
1=0 

hR ITE ( 6,5 ) 

CONTINUE 

1=1+1 

READ ( 79 ,* »cNC = 6C )A 3 (I) ,03(1 ) 

S3 ( I) = A2 ( I )* ( 1 -*6 2 C I ) ) 

£3(1) =A l CG ( 9 3 ( I ) +1 ) 

ADJUSTMENT FCP INSTFON ANO ELASTIC STRAIN ***** 
C=62o 7 
C = .l 
S=S 3 ( I ) 

E = 63 ( I) 

CALL SLCPE(C , C ,E,S, CHG) 

E3( I) =0-0 

***** 

WR ITZ ( 6 ,2)A3 ( I ) ,53( I ) ,82 (I ) » c E ( I ) 

CC to 5 C 
CCNTI NUE 
PTS3=I-1 
2 233333222 : 

1=0 
WRITEt 6,5) 

CCNTI NUE 
1 = 1 + 1 

REAO( 50 ,* ,ENC=8C )A4 ( I) ,34(1) 

S4( I ) = A4 ( I ) £ [ 1 «64 ( I ) ) 

E4(I)=AICG(04( J )+i ) 

A C JUS TMENT FCF INSTFQN ANO ELASTIC STRAIN ***** 
C =84. 1 
0.15 
S=S4( I) 

E-E4(I) 

CALL SLCPE(C,C,E,S,CHG) 

E4( I ) =ChC 

***** 

93 



3333333* 



123337 



N PUT FIL 



WR IT= (6 , 1 )A4 ( I ) ,S4( I) , 34 ( I I t EM I ) 

gc rn 7 c 

30 CONTINUE 

PTS4- t - 1 

C 4 44 4444 4 4^44-4 44^4444 444-4 4444- 

1=0 

WRITE (6,5) 

9C CONTINUE 

1 = 1 + 1 

RFAD(49 f *,cNC*i:CU5(: ) , E5 ( I ) 

S 5 ( I ) = A 5 (I ) ■« ( 1 + 05 ( II J 
E 5 (I ) =AICG ( 85 H ) 41 | 

C AO JUS IMS M FCF INSTRQN AND ELASTIC STRAIN 

C*ill. 

0*.l 
S* S5( I ) 

E=E5 ( I I 

CALL SLCFE(C ,C,S ,S»CHGI 
E5( I) =CHG 
C 

WRITE <6,2)A5( I) ,S5(II, 35 (I I , E5( I ) 

GC TO *0 
ICO CONTINUE 

PTS5M-1 

q cccc^:ccccccctcccccrc^cc^^ 

~U6 

WRITE(6,6) 

2C0 CONTINUE 

1 = 1+1 

READ( 40 EMC = 2CC) AMI ) ,E6( I ) 

S 6 ( i ) = a 6 (i )■* (i -»ee ( i ) ) 

56(1 ) = A l CG ( 8 6 ( I ) 41) 

C ADJUSTMENT FCP INSTPQN AND ELASTIC STRAIN ***« 

C=208. 

0*.15 
S = $ 6 ( I ) 
c=E6 ( I ) 

CAUL SUCFEIC ,C ,2 ,S ,CHG) 

66 ( I)=CHC- 

C *-*=**^ 

WRITE 16,2) A 6(1) , 5 6 ( I), 36(1 ) , E6(I ) 

GC T 1 2CC 
200 CONTINUE 

PTS 6= I- l 

C 666 66 666666666666666c 66 6666666666666 

1=0 

WR ITE ( 6 » 5 ) 

4C0 CONTINUE 

1 = 1+1 

REAO( 34,*,FNC=50C)47(I ) , E7 ( I ) 

S 7 ( I ) =A7( I ) ^ ( 1 407 ( I ) I 
E7 ( I ) = A L CG ( 8 7 ( I) +1 ) 

C ADJUSTMENT FOR INSTFjN AND ELASTIC STRAIN 

C = 222 a 
C = o l 
$ = S7 ( I) 
c=E7( I ) 

CALL SLCPE ( C » C , £ ,S , CHG ) 

E7 ( I ) =Ch G 
C ***;;.* 

wR ITE ( 6 , 1 ) A 7 ( I ) » S7 ( I), 37(1 ) ? 1 7 ( I ) 

GC TO 4CC 
SCO CONTINUE 

PTS7= 1-1 

C 77777777777777777777777777777777777777 

C DIMENSION LEGPAK 

' ‘ C CM F c S 

SMOOTH 
P0LY2 

SLCWUP ( ® £ 5 ) 

PAGE (11* ,£. 5) 



CALL 
CALL 
CALL 
CALL 

CALL 

CALL *I>ALf=( » I N c T P U 1 ) 

MAXLI N = L IN6ST (LEGPAK ,500 ,20 ) 

CALL LINES ( 1 1.4X1C ( =H 0 5 )-4S » , LEGPAK ,1 ) 
5.6*1Q( 2H« 5 )-4i • , LEGPAK , 2) 
1 ,4X1(1 ( EH. 5 ) — 3 S • , LEGPAK ,3) 
5 .6 X 1C ( EH. 5 ) -3 $ ’ .LEGPAK ,4 ) 
1 • A X 10 ( EHo5 ) — 2 S 1 , LEGPAK ,5) 
6.6*10 (EH. 5) -2 S' .LEC-PAK ,6) 
1 .4X10 ( EH. 5 1-1 $ • .LEGPAK ,7) 
-STRAIN RATES i/Si* ,16) 



Llf^ESt 1 
L I N E S ( 1 
LINES ( 

LINES ( 

L I N EC ( 

LI N 5$ ( 

MYLEGN ( 

FUTLRA 

SHCCHR (SC., 1, .002 , 1 ) 

THKCRV ( .C2 ) 

HE I GHT ( * 2 ) 

CALL XNAME( * TRUE ST RAINS' ,100) 

CALL YNAMEt'TFLS STR ESS ( ( ) MP A ( ) ) S 1 , 1 CO ) 



CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 



94 






C4 

5 



11 

21 



CALL \FHA2D(6aC»6«0) 

CALL HBACIN l ' i 1 ,127, 0 5 ,2 ) 

CALL rlEACDt ’ $TC- cc STRAINS' ,130, 1*5,2) 

CALL j ? f ( ? • » • 1 , * *U » C* » 1 0 C* , 6 CC« ) 

CALL THK FFM ( « C2 ) 

CALL FRAME 

CALL C U P V E ( 2 1 » S 1 , FT S 1 » * l ) 

CALL C UR V E ( E 2 ,S2,F7S2,*1 ) 

CALL CU3VE(32 ,£2,F7S2,+1) 

CALL CUPVE(-4,S4,FTS*,+*1 ) 

CALL C UR V E ( = 5 ,55 ,F7Sf ,*l ) 

CALL 2 U R V E { E 6 ,56 ,F7S£,+l ) 

CALL CUPVE(E7 ,57 ,F7S7,+1 ) 

CALL RESETt 1 7 f-K CP V » ) 

CALL RESETt ' HEIGHT' ) 

CALL L£C-ENO( L5GFAK ,7,5.5 ,3. ) 

CALL 3L. m EC(5o^ ,c 7 ,2 o 5 » 2 o 5 , * C c ) 

W W W W d WWWW^WWW V» V W V * * « W 

CALL MESSAG( ' 72 W FERATURE = S ' ,107 ,2 . ,4 .5 ) 

CALL IN7N01 225, 'A8L7', 'ABUT' ) 

CALL MESS *G ( ■ ( EH* 2 )0( EX HX ) C 1 ' ,100 , 'ABUT ' , • ABUT ' ) 

CALL 3LF2C ( 1. E ,4.4 , 2.7 , .4, .02 ) 

WViHWwfWtrfViWhwUW W V W W to ** to 

CALL MFSSAGt ' A L - 10 . 2 WG-* • 5 2 3PM S f , 1 00 , 2 . 5 , 5 .5 ) 

CALL 3L?EC( 2 C 2 ,5oA ,2o6,o4,.C2) 
totototoWtotoV»!ptoWto*toVtotototototo 

CALL ME S SAG ( 1 ENC C A 7 A ^ C !"!T S CC NUT $ » , 10 0 , 1. 2 , . 1 ) 

CALL ME S SAG ( ' IN C IC A 7= F? AC T UR 5 i ' ,10 G , ' ABUT' , ' ABUT » ) 

CALL BLPEC(lol,oC6,4o9,o24,oC2) 

CALL GRIC (2,2 ) 

CALL ENOFL(O) 

CALL UCNEFL 
FCRMATl 1>,4F12. 5) 

FORMAT ( 1 X , AF1 2 • 5 ) 

FCRMA T { 1X,4F12*5 ) 

FORMAT { IX , I 2 ) 

FORMAT (IX,/, AX ,'EHG STRESS' , 2X , 1 T n 'JE STRESS' ,2X, »SNG STRA(N»,2X, 
3 1 TRUE STRATI' ,/> 

end' 

SL3PHUTINE SLC FE (C , C »c , S »C HG ) 

REAL C , C , «E , S , CHG , TC ,T 0 
7C=CM1.*0) 

T0=A LOG ( C+l • ) 

CHG=E-S*TD/TC 
I F { CH G* L EoO • )CC 7C 11 
GC T 0 21 
C HG- ) • 

CONTINUE 

RETURN 

END 
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c 

c 

c 

c 

c 



10 

c 



c 

20 

c 

30 

C 



C 

40 

c 

50 

C 



C 

6 C 

C 

70 

C 



c 



TRUE STFrES T PU2 M T = 25CC 

TH 1 3 ^roRA,* CC^PUTPS T^u c . STRESS SNC 
ENG I NEE 3 ING STRESS AND .“TP 4 IN # VND T P 
STRESS AGAINST TRUE STRAIN. 

* * ** n i ***:«:* *^:* --'.:** 9 ** £»** **;*:*=>:-« 

external slope 

REAL A1 ( 10) , A2( 1C ) , A3( 10 ), A 4 (!C ) ,A5 ( 1C ) ,A6( 10 J 
REAL A7(10) , A8( 1C ),><?( 10 ), A1C (10) 

REAL el ( 1 )) • 2 2 ( 1C) ,33( 10 ) , 64 ( 10) ,8 5 (1C ) ,Q6( 10) 
REAL 67 (10) » PEllC ) r 69( 1 0 ) » 3 1 C ( 1 3 ) 

REAL SI ( 10) i £2(10 , $3( 10) » S4 { 10) ,35 (10) , S6 ( 10 ) 
REAL 37 ( n J . S6 (IC ) , $9( 1 3 ) , SIC ( 10 ) 

PEAL 51 (10) , E2 (1C US3( 19 ),E4 (10 > ,E5 (10 ) r E6( 10) 
REAL E7(10) ,EE (1C) ,E9( 10 ) ,210(19) 

REAL C *C ,E , S ♦ CHG ,TC »T0 » 15GPAK (500) 

INTEGER I,PT$1,P7S2 ,PTS3 ,PTS4,PTS5, PTS6 
INTEGER FTS7 ,FTSE,PlS9 ,P7S10 
1=0 

WRITEC 6,5) 

CONTINUE 
1*1 + 1 

REAO ( 69»*»cNC = 2C)Al(I) ,81(1) 

SI ( I) =A1 ( I)— (1+61(1)) 

Eld ) =ALCG( 81 ( I ) + 1 ) 

ACJUSTNENT FCP INSTFOM ANO ELASTIC STRAIN ***** 
C=15. 3 
C=.075 
S = S1( I ) 

E=E1 ( I ) 

CALL SLCFEiC ,C ,E ,S , CHG ) 

El ( I) =CH3 
***»«:« 

WRITE (6,1) Al(I) ,$1( I ) r B 1 ( I ) , El ( I ) 

GC TO 1C 
CONTINUE 
PTS 1= 1-1 

min liiniiii mm 
1=0 

WRITE( 6,3) 

CONTINUE 
1 = 1-+ l 

R E A0( 72 ,* , ENC =40 )A2 (I ) ,B2( I ) 

S2(I)=A2(I)* ( 1+82(1 ) ) 

E2(I) = ALCC-(92( I)+l ) 

AC JUS TMENT PCF INSTFQN ANO ELASTIC STRAIN 
C= 20. I 
D=. 042 
S = S2( I ) 

E=E2( I ) 

CALL $ L C F c ( C ,C ,E,S,CHG) 

E2( ! ) =ChG 

. WRITE (6 ,2) A2 ( I ) , S2 ( I ), 82 (I ) , EEC I ) 

GC TO 3 C 
CONTINUE 
P7S2=I-1 

2 22 222 222 222222 7 2 22 2 2 
1=0 

UR I TE ( 6,5) 

CONTINUE 

1=1+1 

R EAD ( 71 ,* ,2MC=6C )A 2 ( I ) ,83(1 ) 

S3 ( I ) = A 3 ( I )- ( 1 <e2( I ) ) 

E3 ( I ) =A LCG( 8 2 ( I ) + ! ) 

ACJUSTMENT PC R INSTRON ANO ELASTIC STRAIN ***+•« 
C=27o 5 
C = . 0 8 3 
$=S3( I ) 

E=E3 ( I ) 

CALL 3LCFE(C ,C ,E,S,CHG) 

E3( I) =CFC 

WRITE ( 6 ,3) A3 ( I) ,S2 ( I ) ,83 (I ) , S 3 ( I ) 

GC to 5C 
CONTINUE 
PTS3=I-1 

~ ^3 3 3 ^ 

*I=<R 

WRITE ( 6,5) 

CCNTI NUF 
1 = 1 + 1 

REAO( 70 »* , cNC = 8C )A4(I) ,34(1 ) 

$4(1) =A4 ( I )* ( I +64 ( I ) ) 

E A ( I ) = A LCG ( 34 ( I ) + l ) 

ACJUSTNENT FCF INSTFON ANO ELASTIC STRAIN ***** 
C = 3 7. 6 
C = »l 
S = S4( I) 

E = E4( I ) 

CALL SLCFE(C ,C »c , S ,CHG ) 

E4( I) =CHG 

***** 
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ST R \ I N PROM INPUT 
N PL CT3 TRUE 



c il:s 



90 

C 

90 

C 

c 

ICO 

c 

2C0 

C 

c 

2C0 

C 

4C3 

c 

c 

5G0 

C 

600 

c 

c 

7C0 

C 

800 



W R ITE ( 6 * 1 ) A 4 ( I) , S 4 ( I ) , 3 4 ( I ) , I ) 

GG Tj 7C 
CONTINUE 
FTS4=r-i 

44444444444444^4444444444444 

1=0 

WRITE ( 6 , 5 ) 

CONTINUE 
1*1 + 1 

RE AO ( 6 8 ,*,cNC*lCC)A5(I ) , E5 ( I ) 
S5(I)=A!(n^ll^S(IlJ 
E5(I)=ALCG(65 (IM1) 

ADJUSTMENT FCF INS7R0N ANO ELASTIC STRAIN **»:** 
C = 54* 3 



E = E5 ( I ) 

CALL SLCFE(C,C,S,S,CHG) 
E5< I )=ChG 

***** 



WRITS (6*2)A5( I) , 55 ( I ) * 85 (I ) , E5 ( I J 

GC Tn 9C 

CONTINUE 

PTS5=I-1 

eecejjKcetcjjettecccccjjce^e 

'l=o 

WRITE( 6,5) 

CONTINUE 

1*1+1 

READ ( 67,*,HNC=2CC)A6(I) » E6( I ) 

S6( I ) =A6 < I )* ( 1 <66 < I ) ) 

Efiil ) = A l CG ( 8 6 (!)♦!) 

ADJUSTMENT FCR INSTFON ANO ELASTIC STRAIN ***** 
C=53« 9 
C = « 06 7 
S = S6( I ) 

E = S6 ( I ) 

CALL SLCFE(C,C ,c,S,CHG) 

E6 ( I ) =CI-G 
**.-*£* 

WRITE ( 6 ,3) A 6 ( I ) ,56 ( I) ,86 (I ) , E6( I ) 

GC TQ 2CC 
CONTINUE 
PT S6= 1-1 

666 66 6666666666666666 66 66 66 666666666 
1=0 

WP ITS (6,5) 

CONTINUE 
1 = 1 + 1 

READ ( 65 ,* ,ENC = 5CC > A 7 ( I ) , 67 ( I ) 

S7CI)=A7<I) Ml **6 7(1)) 

E7 (I ) =ALCG( 37 ( 1) 41 ) 

ADJUSTMENT FCP INSTFT) AND ELASTIC STRAIN' «««■--* 
C = °3o 1 
0,15 
S=S7( I) 

E = E7( I ) 

CALL 3LCPE( C ,C ,E ,S ,CHG ) 

E7 ( I ) =CH G 

***jc:t 



WRITE (6 ,1)A7( I ) ,57( I) , 8 7 (I ) rcl( I ) 

GC TO 4CC 

CONTINUE 

PTS7=I-1 

7 77 777 7777777 71 77 777777 7777777177777 77 
1=0 

WR ITE ( 6,5 ) 

CONTINUE 
1*1 + 1 

RE A0( 64,*,ENC=70C)A8(I ) , 88 ( I ) 

S 8 ( i ) = a e ( i )* u*eem ) 

E9 ( I ) =41CG( BE ( I ) *1 ) 

ADJUSTMENT f=CF INSTRCN AND ELASTIC STRAIN ***-.* 
C = L10«, 

C = .15 
S = S8 ( I ) 

E = E3( I ) 

CALL SLCFE(C ,C , c ,S , CHG ) 

E 6 ( I ) =C HG 

****» 

WRITE (6,2) A8( I),S3( I ) , 0 8 ( I ) , E 8 ( I ) 

gc n 6 cc 

CONTINUE 
FTS8= [-1 

E6E688S8EE6986E66866E6388S8886888 
1=0 

WR ITE ( 6,5) 

CONTINUE 
I = I + i 

REAO ( 63 »3»END=90C)A9(I ) , 09 < I ) 

S 9 ( I ) = A 9 ( I )*( 1 489( I } ) 

E9 ( I ) =4 LfG ( 89 ( I I *♦ l ) 
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c 



c 

9 CO 
C 

1000 

c 



c 

HOC 

c 

c 

c 



c 

c 

c 



acjusi^eSt fcf instfon 

C= L 5 5 • 

C ” 9 1 J 
$= $9 ( I I 



AND ELASTIC STRAIN 



E = E9( I) 

CiU5UF5(C,C ic ,S , CHG ) 

*:**•!* 2 : 

GC I ^ ( tcf U<?< 11 ’ 5?( n ’ 89 <n ’ ESt I 1 

CCNTINUE 

PTS?=I-1 

559999'99 < :<;999 i ; <: 7 e 9 i:c 99<:9eoq 
I *0 

WAITS! 6,5) 

CCNTINUE 
I s 1 + L 

R6A0( 35 ,* ,£NC*11CC I <13( I 1 ,31C(I ) 
sion i=iio( i >*<i+ 3 icm i 

E10 ( I ) = a ICG ( E 10 (I )+ l ) 

ACJUSTMENT EC? ^ST?C.*I A NO ELASTIC STRAIN 
C=1 3 □ • 

C = .l 

S = S10 ( I ) 

e=eio ( i ) 

CALL SLCFE(C,C,E,S,CHG) 

£1 0 ( I ) = CFG 

**A:*:x 

wPiT3(6,m ic m,sic(ii,eio(i),ciom 

uL I !J 1 C CO 
CCNTINUE 
PTS10= I - ! 

lcioio io icioic icicic io: o icioi cio 

CtVENSICN LEGPAK 
CALL CCMFFS 
CALL SM0C1H 
CALL POL Y 3 
CALL 8LCWLP ( o ^ 5 ) 

CALL PAGE(11. ,c.S) 

CALL M>ALF( • INS7RL ’ ) 

PAXLI Ml INcST (L£CP ^ h ,5 00 ,20 ) 

CALL LINES ( » 1 . A > 10 ( EH. 5 ) -4 $ • , LEGPAK ,1 I 
CALL L I N £ S ( 9 2«3X10(cH« 5 ) -4 S * , LEGPAK, 2) 
CALL LINE3( » 5.6>IC(FH*5 )-4S » , LEGPAK ,3 ) 
CALL LINES ( M*4>10( EH. 5I-3S * , LEGPAK ,4) 
CALL LINES ( 1 / oE> 10 ( EH. 5 )-3 i 9 .LEGPAK ,5 ) 
CALL LINES( • f . 6 > 10 ( PH. 5 ) -3 S » .LEGPAK ,6) 
CALL LINES ( • 1.4 >10 ( EH. 51-2 S • .LEGPAK ,7) 
CALL LINES ( ’ 2#e*10 ( EH*5 1-2 S» .LEGPAK ,a I 
CALL LI N ESC ’ 5.6X10 ( EH* 5 )-2S • .LEGPAK ,9) 
CALL LINES*’ 1.4X10 (EH. 5 1 — 1 S * .LEGPAK, 10) 
CALL NYLEG.N ( * STRAIN RATES l/SJ’,16) 

CALL FUTLPA 

CALL SHCCFR(9Co,l,oC02,l ) 

CALL THKCP.VC.C2) 

CALL HE I CH T ( . 2 ) 

CALL XNAHEC'TPLE STP A IN $ • ,100 ) 

CALL YNANEf’TPLE ST R E SS ( ( ) M P A ( ) ) $ * , 1 00 ) 
CALL ARE A2Q ( 3 • C » 6 »0 ) 

CALL HEACIN ( * i • .ICO, .5 ,2 ) 

CALL H6AC INC ’ STRESS \,S ST RA I N I * , 100 , 1. 5 ,2 ) 
CALL GFAF (0* ,«1 ,UG,C o,50 o,22 C*) 

CALL THKFRMf • C2 ) 

CALL FPANE 

CALL CUFVE (El ,S1 ,FTS1 ,+l ) 

CALL CURVECE2 ,S2,PTS2,+1) 

CALL CURVE(E3 ,53 ,PTS2, + l ) 

CALL CURVEIE4 »S 4 ,FTS4,H ) 

CALL CURVfE(E5 ,S5, P T S 5 , + 1 ) 

CALL CURVE(E6 ,56 ,FTS6,+L I 
CALL CUPVE(F7,S7,FTS7,+1) 

CALL CURVEfES ,S8,PTSS,+ i) 

CALL C UP V6 (£9 ,S9 ,?7S C ,+1 ) 

CALL CURVEfEIC ,S1C,P7S10,>L) 

CALL RESET* ’ TFKCRV > ) 

CALL RF S ET ( ’FEIGFT' ) 

CALL LEGEND ( LEGPAK, 10,5» 3,3* ) 

CALL 8LPFC(5o2,2o7,2o5,3o,.C2) 

^ V I, W W ** W 

CALL iESSAG( 'TE^FERATIJRc ^ i • , 10 0 , 5 . 2 , 1 . I 
CALL I NTNC ( 2 5C , ’ A EU T ’ » 1 A3UT’ ) 

CALL M E SSAG ( • ( -ho 2 ) Q( E X hX ) C S ’ , 100 , • AetT ’ 
CALL BLRECC 5. ,. c ,2.7,. 4 ,.02l 

WkkWWWWWWkknW V V V kUWWU 

CALL MF SSAG ( ’AL-iCo 2D G-C# 52 A NN s • ,100,2o5 
CALL 3LFFC(2o3,So4,^o6,oA,#C^) 

WkWWUioUWW^UuU V V w ^ w w u w 






** v:.x 



, 1 ABUT * ) 
,5.5) 
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CALL *'FSS4G( ' E*G CA~A ~> n V\T% CC v !0 T S' , ICC » io 2 » • 1 ) 
CALL 4ESSAG< ■ INCICAT C C F ^CTUFE! 1 » 10 C * 1 * BUT ’ t ' ABUT ' ) 
CALL 3L-CC( lo 1 ,o ,Ao 9 to 2^,0 c: ) 

CALL GRIC (2,2 ) 
r a i i 



a 1 TRUE STRAIN’ , / ) 

STOP 

END 

SUBROUTINE SLCPE (C,C.C,S ,CHG ) 
REAL C , C »c » S , CHG »TC ,TD 
TC=C*( 1. +0) 

T C = A L C G (C+L a ) 

ChG=->S*T0/TC 
IF (CHG.LEjOo ) GC IQ 11 




C4 

5 



1 

2 




FCPMAT ( 1X,4F!2<,= ) 
FORMAT ( 1 > , 4F 1 2 • 5 ) 
FCRMAT( 1>,4F1 2 . Z ) 
FCRMAT (IX, 12 ) 



11 

21 




99 



10 



20 

C 

3 C 



40 

C 

50 



6C 

C 

TO 



TRUE STRESS \S TPLC :TR-.‘I M H T =2“ r 5C 
THIS PFCG 3 AM COMPLIES T~UE 5TRFSG A.NC STRAIN : 
ENGINEERING STCccc AND STRAIN, ANO T h E N PLOTS 
SI'P'ESS^^GA ^JJ^RlSJjTR d£N. ******** 

EXTERNAL SLOPE 

REAL Ai ( ID) , A 2(1C ) , A3( 10 ) , A4 ( 1C ) ,A5 ( 1C ) , A6< 13) 
A7(10) ,46(10 ,A9( 10 UAIC(IO) 

81(13), e2(lC), 83 (10>,B4(10) ,8 5(13), 86(13) 

B7 ( n ) , ee t ic ) » E9( io >, aic no ) 

31(10) ,52(10 ,S3( 10)tS4(10) »S5 (10) ,S6(10) 
37 ( 10) f set 1C ) , E 9( 10 ) , SIC ( 10) 

El (10) ,22(10 ,£3(10),c4(10),c5 (10), 66 (10) 
67(10) ,£6(10 tE9( 10),61C(10) 

C,C ,E,S , ChGjTC ,TOf LEGPAK (500) 



INPUT 

TRUE 



REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 






. _ . _ . 'tija 

INTEGER I*PT$l,Fi$2,PT$3»PT$A ,PTS5, PTS 6 
INTEGER PT$7,PT$e,PTS9,PTS10 
1=0 

W R I TF { 6,5) 

CONTINUE 
I = 1+1 

READ* 66 ,* ,£NC = 2G )A1 (I) » B 1 ( I ) 

S1(I)*A1(I)* (H61( I )) 

61(I)=ALCG(B1 ( I)>1 ) 

AC JUS TMENT FCP INSTFGN ANO ELASTIC STRAIN 
C = 12o 3 
C««l 
S=S1( I ) 

E = E1 ( I ) 

CALL SLC PE ( C •Ci£,S.CHG) 

Eli I) *ChG 

*»:*i*.* 

WRITE (6 ,1) A1 ( I ) ,S1( I ) , B1 (I ) , 61 C I ) 

GC TO 1C 
CCNTINUE 
PTS 1= 1-1 

111111111111111111111 
1=0 

WR ITE( 6,5 ) 

CCNTINUE 

I = I 4 1 

REAO( 75 ,*,3ND=AC )A2 (I) , B2( I ) 

52 ( I )=A2 (I )-* (14 0 2(1)) 

E2(I)=AICG( B2 ( I) +1 ) 

ADJUSTMENT PCF INSTFON ANO ELASTIC STRAIN 

c*n* a 
c=.i 

S = S2( I ) 

5=E2 ( I ) 

CALL $ L C PE ( C ,C ,c,$»CHG) 

E2 { I ) =CFG 

WRITE (6 ,2) A2 ( I ) ,S2 ( I >, B2 (I ) , £2 ( I ) 

GC TO 3C 
CCNTINUE 
- PTS2=I-1_ 

222 222 222 222 '2122 ±2 22 
1=0 

WRITE ( 6, 5 ) 

CONTINUE 
1 = 1 + 1 

REAO ( 76 »** » SN' C = 6 C ) A 3 (I) , B?( I ) 

53 ( I ) =A3 (I )+ ( HR2< I ) ) 

E 2 ( I ) =ALCG< B3(I)+n 

ADJUSTMENT FOR INSTPON ANO ELASTIC STRAIN 
C = 14 0 7 
C = .05 
S = S3 ( I ) 

E=E3 ( I ) 

CALL SLCPE(C ,C ,c ,S,CHG) 

E3( I ) =C PG 

WRITE ( 6 , 3) A3 ( I > ,S3( I ) ,33 (I ) , £2( I ) 

GC T ) 5 C 
CONTINUE 

**3 3 *5 *3 “2 - 23333 333 

" 1 * 0 * 

WR ITE ( 6,5 ) 

CONTINUE- 
I = I + i 

REAO( 62 f * ,ENC = 6 C )A4(I),BA(I) 

$4(1) = A A (I )* ( 1 <e4 ( I ) ) 

ADJUSTMENT* FOpMnSTFON ANO ELASTIC STRAIN ***** 
C = 32.4 
C =• 1 5 
S=S4( I ) 

E=E4< I ) 

CALL SLCFE(C,C,E,S,CHG) 

E4 ( I ) =CHG 

100 



FILES 0 



8C 

C 

90 

C 

c 

100 

c 

2C0 

C 

c 

3 CO 
C 

4C0 

c 

c 

5 CO 
C 

600 

C 

C 

700 

C 

800 



*R I T - ( 6 , 1 ) ^4 ( I ) v 54 ( I ) f 34 ( I ) v E4 ( ! ) 

GC 70 7 C 
CONTINUE 
PTS 4 «I -1 

4 , 4 A 4444 4 4 4 444 A 4 z, 4 4 * 4 44444444 
1=0 

WRITE( 6 , 5 ) 

CONTINUE 
1 = 1 + 1 

READ ( 61 »* , ENC = 1CC ) 4 5 (I ) , E5 ( I ) 

S 5 ( I) = A 5 (I)* ( He 5 ( I) ) 

65(1 ) = A l CG ( B 5 ( I Ml ) 

acjustment fgr instfon and elastic strain ***** 

C= 26.5 
C =.067 
S=S 5 ( I ) 

E = E 5 ( I ) 

CALL SLCFEIC ,C ,E,S, CHG) 

65 ( I ) =ChG 

«*Sn< 

VISITS (6 , 2 ) A 5 ( I) , 55(1 J, 0 5(1 ) . 65 ( 1 ) 

GC TO ac 
CONTINUE 
PT $ 5 = I- 1 

cc^G^^ccecs^srccccccectj^ce^^c 

"f = 6 

W R I TE ( 6 , 5 ) 

CCNTTNU 6 
I = I + L 

READ ( 50 ,*,ENC= 3 CC)A 6 (I ) ,e 6 ( I ) 

S 6 ( I ) =A 6 ( I ) * l 1 ( I ) ) 

66 ( 1 ) =A LCG( 8 6 ( I ) + 1 ) 

ACJUSTNENT FCF INSTFON AND ELASTIC STRAIN ***** 
C = 36 * 7 
C = .l 
S=S 6 ( I ) 

6 = 66 ( I ) 

CALL SLCFE(C,C,E,S,CHG) 

66 ( I) = C b G 

*Tfat*clz 

WRITE ( 6, 3) A6 ( I ) ,S6( T) , 86 (I ) , £6 ( I ) 

GC Tn 2 CC 
CONTINUE 
PTS 6 = I— 1 

666666666666666666666666666666666666 
I =C 

WRITE ( 6 , 5 ) 

CONTINUE 
1 = 1 + 1 

R E AO ( 41 ,* , 6 NC = 5 CC ) A 7(1 ) , 87 ( I ) 

57 ( 1 ) =A 7 (I )•* ( 1 + 97 ( 1 )) 

67 ( 1 ) =ALCG( 97 ( I) +1 ) 

ACJUSTMENT FOP INSTFGN AND ELASTIC STRAIN ■•**■«- 
C = 6 1 0 1 
0 = o 0 3 3 
S = S 7 ( I) 

CALL 5 LCP 6 (C ,C ,E,S , CHG ) 

67 ( 1 ) =Cb G 

WRITE ( 6 , 1 )A 7 ( I ) ,S 7 ( I ), 87 ( 1 ) , E 7 ( I ) 

GC T D 4 CC 
CONTINUE 

7777 T 7777777777 - 77777 T 7777777777777777 

1=0 

WRITE( 6 , 5 ) 

CONTINUE 
1=1 + 1 

REAO( 60 ,* ,EN 0 = 70 C ) A ? ( I ) r 68 ( I ) 

5 E( I ) =A 8 ( I )* ( 1 ^ee ( I ) ) 

F 8 (I)=ALCG( 1 f(Il+l! 

flOJUSTVENT PCF ^STFC.'I ANO ELASTIC STP 4 IN '-***** 
C = 85 o 3 

D-tiJ 

5 = S 8 ( T ) 

6 = <= 9 ( I ) 

CALL SLCFSIC ,C ,S,S,CHG) 

58 ( 1 ) =CbG 

WRITE ( 6 , 2 )A 8 ( I ) ,sa ( I ), aa (I ) , E 8 ( I ) 

GC TO 6 CC 
CONTINUE 
FTS 3 = 1-1 

EEEE 33 EEEEE 36 EEEEE 6 EE 0838 E 838 EE 88 

1=0 

WR I TE ( 6 , 5 ) 

CONTINUE 



101 



c 



c 

900 

C 

100C 

C 



c 

HOC 

c 

c 

c 



c 



c 



i=i + : 

pp An ( 5 g r -.. , 7 MC =9 : C ) * c ( I ) » E9 ( I ) 

S9( I ) = A9 ( I )- ( 1 <69(1) ) 

£9(1) = A LCG t B 9 (11^1) 

AC JUS TMEN7 C CP INSTPCM AND ELASTIC STRAIN 
C - iOO • 

C=olS 
S-S*9( I ) 

E = E9 ( I ) 

CALL SL C FE ( C ,C ,5 ,S ,CHG) 

E9( I) = CHC- 

V.RITc(6,3)A9( I) ,59(1), 09 (I ) ,69(1) 

GC TD acc 

CONTINUE 
PTS9= 1-1 

cqgqqqqqccgggc cccccc 09999990 
1=0 

WRITEf 6,5) 

CONTINUE 
1 = 1 + 1 

REAO( 27,*,2NC=11CC ) 410 ( I ),81C(I ) 

siod ) = a io ( i ) >* ( i +e i : ( i ) ) 

£10(1 ) = A ICO ( 6 1C ( I) + l ) 

ADJUSTMENT FCP INSTC.Tl AND ELASTIC STRAIN 
C= 143 o 
0 = » 1 5 
S=510 ( I ) 

5=61 0 ( I ) 

CALL SLCF c (C,C,E,S,CHG) 

610(1 ) = OG 

V<RITE(6»1)A1C(I) , SIC ( I ) t 8 1 0 ( I) , £10 ( I) 

GC TO 1CC0 
CONTINUE 
PTS1 0= I - 1 



icnio i:ic :di : icicic: : i :: 

CIMfNSICN LEGPAK 
CALL C CN F - S 
CALL SMOOTH 
CALL PGLY3 
CALL 8LCULP(.65) 

CALL PAGE (1 1 • ,6.5) 



:: oicic 



CALL MI>ALF( 1 IN S TP L * ) 

MAXLI N= LIME ST (LEGPO ,5 00 ,20 ) 
CALL L I N E £ ( ' I.4X10(EH.5)-4$~ 
L I NES ( • 2.6X10 (EH. 5)-*$ 

L I NES ( * 5.6X10 (EH.5 ) -4 6 
L I NcS ( * 1.4X10( :H, 5 I-3S 
LINES ( • 2 .8 X 10 ( [H*5 )-3 $ 
LINES! • 5 • 6 X 1C ( EH. 5 ) -3 $ 

L I NES ( • 1 .4 > 1C ( EH.5)-2S 
LINES C 2.6X10 ( [Ha 5 ) -2 $ 
LINES( »5.6X1C( = H.5)-2$ 

L IN ES ( * I . 4 X 10 ( 5H.5J-IS 



CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 



.LEGPAK ,1 ) 

, LEGPAK ,2) 

, LEGPAK ,3 ) 

, LEGPAK ,4 ) 

, LEGPAK ,5 ) 

, LEGPAK ,6 ) 

, LEGPAK ,7) 

, LEGPAK ,3 ) 

, LEGPAK ,9) 

, LEGPAK ,10) 



NVLEGN ( * STRAIN RATES 1/Si’, 16) 
FUTLPA 

SHCCKR ( 9 C . , 1 r oC02»l ) 

THKC°V( .02 ) 

HE IGHT ( .2) 

X NAME ( • TFlc STRAINS* ,100 ) 

Y NAM9( * TP LS STRESS (( )MPA ())$ * ,100) 



CALL AREA20(S.C,6.0) 

CALL HE AC IN ( ' S'. ICO, .5, 2) 

CALL HEACIN( ' STRESS ^S STRA I N S • , 100 ,1.5,2) 
CALL GPAF (<jo , o 1 ,1.0fC., 50o,22C. ) 

CALL TH K F ? M ( • C 2 ) 

CALL FRAME 

CALL C U R V 6 ( E 1 , SI ,FTS1,+1 ) 

C UR V £ ( E 2 ,52 ,PTS2 ,+ l ) 

CUPVF ( E3 , S3 , PTS 2 , + 1 ) 
CUPVE(54t54,FTS4,+l) 

CURV£(E5 , 55 , FT35, + I ) 

CUR V F ( 56 , 56 ,F7$F t +L ) 

C U R V E ( E 7 ,57 ,FTS7, + 1 ) 

CUR V E ( E c ,S6,FTSE, + 1 ) 

CURVE ( E9 ,59 ,PT59, + 1 ) 

rtl !* 



CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 

CALL _ _ . _ . 

CALL CURVE(Elv ,SlC»rTSlO?+l) 

CALL RESET ( ' THKCFV ' ) 

CAUL RE SET ( ' HEIGHT' ) 

CALL LEGEND (LEGPAK, IT, 5.5, 3« ) 

CALL 3LF p C ( c ,2 ,2.7 ,2.5 , 3 .02 ) 

v |» » In * . w 

CALL M ESSAG( 'TF^FF^^TURr = S • , 1C^ , 
CALL INTNC(275 , ' « etT' , • ABUT' ) 

CALL ME SSAG ( ' ( F. H. 3 ) Q( Z X HX ) C S ' , 100 



CALL BLPFC( 2.2 ,4.4 ,2, 
VtWhWW bV'k t V t t t »V,VtW 



,4, .02) 



2.5,4. 5 
, ' A e U T ' 



JK. M 






) 

t ' ABUT' ) 



102 



>OJK»h- 



c 



C4 

5 



11 

21 



CALL M C $S'G< ^L-1\:;'K 3 - 'o5?VNS' , 1 C ; . 2 * 5 ,5 . 5 ) 

CALL SLFEC ( 2 o 2 , 5 o 4 » <c o o » o ^ » © G ^ ) 

* if lm>^H’i«w 

CALL *ESSAG(*^0 CA T \ POINTS CC fc, 0T i * , ICC , 1. 2 ,. 1 ) 

CALL MBS SAG ( • INCICAT: PR AC TU P c $ 1 , 10 0 , • t 8U T 1 , • ABUT 1 ) 

CALL BLREC( lo 1 .«C£ ,4«9 .. 24 .• CZ ) 

CALL GRIC (2,2 ) 

CALL ENDPL(O) 

CALL DCNEFL 
F CRM AT ( lX f 4F12o5 ) 

FORMAT ( 1 > »4F 1 2 • 3 ) 

FORMAT ( 1X,4FI l.z ) 

FORMAT (IX, 12 ) 

FCRMAT(l>*/»4> ,'FNG STRF SS' , 2X » 1 TRUc ST P E SS * , 2X , 1 =NG STRAIN 1 , 2X f 
a • TRUE STRAIN* ,/) 

STOP 

ENO 

SL8RQUT INF SLOPE (C, C ,c ,S ,CHG J 
REAL C ,C ,H, S ,OG ,TC , T 0 
TC-C‘ > ( l.+O) 



to=al:g (C+ i o ) 
CHG=*E— S 4 TO/T C 
I F(CHG© LEoOo )GC TC 
GC TO 21 
CHGsO. 

CONTINUE 

RETURN 

END 



II 



103 



uuuuU 



10 



20 

C 

30 



4C 

C 

50 



6C 

C 

70 



TRUE STFCSS VS TRUE STRAIN AT T = 32 5C 

THIS PFCGR4H CCHPLTES ^UE STRESS AND STRAIN FRC M INPUT 
ENGINEER IMG ST R CSS V4D STRAIN, AMO THEN PLOTS TRUE 
STRESS AGAINST TP LE STRAIN. 

4 ib7*t: 4 JC * 

EXTERNAL SLOPE 

REAL Al ( 10) ,A2( 1C) ,A3< 10 ) ,A4 (1C) ,A5 (1C > ,A6< 10 ) 

REAL A7 ( 10) , A6< 1C) , A9( 10 ) , A1C (10) 

REAL 81 ( 10) ,62 < 1C ) , e3( 10 ), 84 (10 ) ,85 (10 ) , B6( 10 ) 

REAL 8 7(10) ,8 6(10 ,89(10 ),31C (10) 

REAL SI (10) ,S2<1C) ,23( 10 ),S4 (10 ) ,35 (10 ),S6( 10 ) 

REAL S7 ( 10 ) ,56(10 ,S9< 10) , SIC (10) 

REAL £1 ( 10) ,E2( 1C) ,E3( 10 ) ,E4 (10) ,E5 ( 10 ) ,E6( 10) 

REAL E7< 10) , E e ( 1 C ) ,69(10 ), E1C (10 ) 

REAL C ,C,E,S ,CHG ,TC ,TD ,LEGPAM500) 

INTEGER I,PTS1 ,FTS2 ,PTS3 ,PT S A ,?T55, PTS6 
INTEGER PTS7,PTS8,P1S9,PTS10 

r=o 

WRITEt 6,5) 

CONTINUE 
1 = 1 + 1 

READ ( 51 t * , c N C = 2 C )A1(I),81(I) 

SKI ) *A1(I )*( 1 *81( I ) ) 

El ( I)*ALCG( 81 ( I ) +1 ) 

ADJUS THEM" FOP INSTFCN AND ELASTIC STRAIN ***** 

C = 5.21 
C=.033 

5 = S1( I ) 

6 = E1 ( I ) 

CALL SLCPE(C»C»E»S,CHG) 

El ( I)=ChC- 

WRITS(6,1)A1( I) rSl( I), 81 (I ) , 51(1) 

GO TO 1C 
CONTINUE 
P 7 Sl= I-! 

linn liniimmiii 

1=0 

WR ITE (6*5) 

CONTINUE 
1 = 1+1 

READ ( 29 ,*7 ,EN C =4C )A2 (I) ,32(1) 

S2( I ) = A 2 ( I ) M I *62 ( I ) ) 

E2 ( I ) =A LCG ( 32 ( I )+! ) 

ADJUSTMENT FOR INSTFQN AND ELASTIC STRAIN ***** 

C=9. 79 
C = .05 
S = S2 ( I) 

E=E2 ( I ) 

CALL SLCPF ( C ,C ,c ,S ,CHG ) 

E2 ( I ) =CHC 



pil:s <-f 



WRITE ( 6 , 2 ) A 2 ( I),S2( I),B2(I ) ,E2(I) 

GC TO 3 C 
CONTINUE 
PTS2=I-1 

222222222222222222222 

I=n 

W PITS ( 6,5) 

CCNTINUE 
1=1 + 1 

REAQ( 28 ,ENC=6C )A2 (!) ,83( I ) 

S3 ( I >=A2 (I )* ( H63< I ) ) 

E3 ( I ) =ALCG( 32 ( I ) +1 ) 

ACJUS TMENT FCR INSTFON AND ELASTIC STRAIN ***** 
C=12. 3 
C**l 
S = S3 ( I ) 

E=€3( I ) 

CALL SLCFE( C ,C ,E,S,ChG) 

E2 ( I ) =CH G 
***«* 

WR ITS (6 A* ( I ) ,S2 ( I >, 63 (I ) , E2< I ) 

GC TO 5 C 
CCNTINUE 
PTS3 =1—1 

~f=6” w 

w R I TE ( 6,5) 

CCNTINUE 
1= I+l 

READ( 27 ,* ,cNC=eO )A4 (I ) ,84(1) 

SMI ) = 4 4 ( I )* ( 1*64( I ) ) 

ACJUS TMENT ( FOP 1 INST?CN ANO ELASTIC STPAIN ***** 
C=21. 2 
C=.l 
5=SM I ) 

E=EM I ) 

CALL SLCFctC tC ,c tS , CHG ) 

EA(I)-CFC 

104 



30 

C 

90 

C 



C 

ICO 

c 

2 CO 
C 



C 

3C0 

C 

4C0 

C 



C 

5C0 

C- 

C 

C 



WRIT" ( 6 ,1 ) A4 (I) < I ) , B-t ( I ) » c‘M I) 

GO TT 7 C 
CONTINUE 

PTS4= I- 1 

4 4 4 44444 4 4444 44444^4 44444 444 
1=0 

V«R IT= ( 6,3) 

CCNTI NUE 
1=1 + 1 

REAO( 26 ,* ,£NC=1CC ) A5(I ) ,35(1 ) 

S5 (I ) =A5 (I >* ( 1 E 5 ( I ) ) 

6 5(1) = A LCG ( 83 ( I) + l ) 

ADJUSTMENT FCR INSTFON AND ELASTIC STRAIN ***** 
C=43« 7 
C=*l 
S = S5 ( I ) 

E = F5 ( I ) 

CALL SICFE ( C ,C ,E,S,CHG) 

E5 ( I )=ChG 



WRITE ( 6*2 ) A 5 ( I) . S3 ( I), 3 5(1 ) , E5< I ) 

GC TO <70 
CCNTI NUE 
PTS5 = 1-1 

ccc cc^ccsecc; c c ccc^c c 55 55 c 555 

- f=<T 

WRITE ( 6,3) 

CONTINUE 
1=1 + 1 

RE AD (25 »**ENC = 3CC )A6(I ) , Eo ( I) 

S6 ( I ) = A £ ( I ) "* { 1^R6( I ) 1 
E6(I)=ALCG{a6(I)4l) 

ACJUSTNENT FGF INSTFCN AND ELASTIC STRAIN ***** 
C=54 o 0 
C*.017 
S = S6( I ) 

E=E6 ( I ) 

CALL SLCFE(C ,C ,E ,S,CHG) 

56(1 )=ChC* 

* 



WRITE (6 ,2) A6{ I ) ,S6( I) , 36 (I ) , E6( I ) 

GC tq ZCC 
CONTINUE 
PT S6= I— 1 

6 6 6 666 £6666666 tt t it 6 666 6 6 66 66 1 1 66666 
1=0 

WR TTE ( 6 ,3) 

CONTINUE 
1 = 1 + 1 

READ { 24 , * , 6N C = 5QC ) A 7 ( I ) » 87( I ) 

S7m=47(i)*<i<e7(in 

E7 ( I ) =ALCG( 87 ( I ) +1 ) 



C CF I NS T F CM mNO ELASTIC STRAIN 



: ) • BT ( I ) , E7 { I ) 



AC JUS 7 M EM 
C=104. 

C=« 17 
S = S7( I ) 

E = E7 ( I ) 

CALL SLCFE ( C ,C,c ,S ,CHG) 

E7(I)=C)-G 
****;» 

WR ITS ( 6 , 1 ) A7 ( I ) i £7 ( 

GC r 0 ACC 
CCNTINUE 
PTS7= I- 1 

77777777777777777-77777777777777777777 
C I . U E N 5 I C N LEGPAK 
CALL CCMFPS 
CALL SMCC7H 
CALL POLYS 
CALL 9L0V.LP (.85 ) 

CALL GPACStO. ) 

CALL PAGEUl. ,8. f) 

CALL YlXALF ( ' INS7PU • ) 
f*AXL I N= L INSET (Ic'GPAK ,500 ,20) 

CALL LINES! • 1 .4 X 10 ( EH. 5 ) -4i • __ 

CALL LI NFS ( * 5.6X 10 ( FH. 5 • .LEGPAK 
CALL L INFS ( ■ ! . A X 1C ( EH. 5 ) -3 S 1 » LEGPAK 
CALL LINES! ’5.4X10(EH. 3I-3S 

CALL LINFS! ' 1.4X 10 ( EH. 5 ) -2$ 

CALL LINFS! ' 5.4X 1C ! EH. 5) -2$ ' , LEGPAK ,4 I 
CALL LINES! ’ 1.4X10! EH. 5 )-l * ' .LEGPAK ,7) 
CALL f-YLCGM! 1 HPAIN RATES 1/SS>,16> 
CALL FUTLPA 

CALL ShCCHR ( CC . ,1 ,.C02 , 1 ) 

CALL THKC?>V ( . 02 ) 

CALL HEIGHT!.:) 

CALL X NANS! » TFLE STR A IN $ • , 1 00 1 

CALL YNAHE! • TRLE S T R f S3 ( ( ) MP A ( ) ) S ' , 1 CO ) 

CALL AFEA2C(8.C,6.0 ) 



.LEGPAK ,1) 
, 2 ) 
, 3 ) 

, LEGPAK ,4 ) 
» LCGPAK ,5 ) 



CA4 



105 






C 



C 

C 



C4 



.00, 1. 5,2) 



CALL HcACiri ( ' 6 * , i ; 0 , • 5 » 2 ) 

CALL HEAC !N( * STRESS STRAIflJ', 

CALL GRAF(0 o ,ol , 1 oC , C o , 5 0 . , 22 C . ) 

CALL THKFSm ( . C2 ) 

CALL FFAME 

CALL CURVE(E1 »S! ,FT$1 , + L ) 

CALL CURVE(22»S2»F7S2,«-1) 

CALL CUP V 6 ( 22 ,S2,F7$3,*1 ) 

CALL C UP VE ( 2 4 ,24 ,P7S4,*1 ) 

CALL C U P V F ( E 3 ,Sf,PTSf,+l) 

CALL CURVE (Ec , S6 ,P7 S£ ,+i ) 

CALL CURVE(H7 ,27,P7S7, + 1 ) 

CALL RE SET ( 'THKCPV * ) 

CALL RE S E T ( * HEIGHT* ) 

CALL L5GP!0(L5GPAK,7,5o5,3o ) 

CALL 6LFEC(5o2,2o7,2o5,2o5,.02) 

CALL MESSAGC *TEMFEFATUR2 = $ * , IDO , 2 . , 4. 5 ) 

CALL I N7N0 ( 3 2 5 , ' £ 6U T * , ' A BUT * ) 

CALL ME SSAG ( * ( =H. 3 ) C( E X HX ) C 5 * , 130 , > AeLT * , * ABUT * ) 

CALL 3LPEC{ l.S,4.4,2.7,.4,.0:> 

CALL ME SSAG ( ’ AL-10. 23MG— % 52?f*NS» ,120,2.5,5.5) 

CALL 3L F EC ( 2.2 »:.4,2.o».4>«22) 

WWWWWWWH WWwWW V vvwwwww 

CALL ME SSAG ( ' ENC CATA POINTS CQ mot $ • , 100 , 1. 2 , . 1 > 
CALL MESSAGt ' INCICATE FR ACTUP E 1 *, 10 C ,' ABUT *,' ABUT* ) 
CALL BLPECt 1.1,. C6 ,4.9, .24,. C2 ) 

CALL GRIC (7, 2 ) 

CALL :NCFl (0 ) 

CALL DONE PL 
FGRMAT { 1X,4F12.5 ) 

FCRMA T { 1 X ,4F 1 2. 5 ) 

FORMAT ( 1X,4F12.5) 

FCPMAT (IX, I 2 ) 



5 



11 

21 



2 



FCP**T(1X./*4X ,*ENG STRESS* ,2X,'TRU2 
•TRUE STRAIN * ,/) 
cjro 

END 

SUBROUTINE SlCPE (C , C ,E , 5 ,CHG I 
PEAL C,C,S,S,CHC,TC,TO 
TC=CT ( l.+O) 



TC = ALCG ( C + l • ) 

CHG-E— S*TQ/TC 
IF (CHG. LE.O. ) GO TO 11 



GC TO 21 
CHG-=0 • 
CONTINUE 
RETURN 
END 



ST 3 : S3 * , 2 X , * ENG STRAt * 



r ,2X , 
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10 



20 

C 

30 






50 



60 

C 

c 



TRUE STRESS \ S TOL= ''7 l\'l A T T = 0 C 

THIS F=CGPA* CCVPUT3S T ^U C STRESS :N n OTF.Ufl FROM INPUT 
FNGI NFEF IN 3 STRESS AND ST PA IN , ^MO ~hEN PLOTS TRUE 
STR2SS JGAJN|l^TPLz^TRMN, ^ 

6XT-R.NAL SLOPE 

REAL 41(10) »A2(lC)»A3(10)f31(10) *82(10) ,33(10) 

REAL SI (10 ) r S2(1C ) ,S3(10 ) , cl (10 ) ,E2 (10 ) , c3( 10 ) 

REAL C ,C tE,S ,CHG ,TC ,TD , LEGPAK (500) 

INTEGER I,PT51, PTS2 ,PTS3 
1=0 

WRITEt 6 , 5) 

CCNTINUE 

01*1 

R EAO ( 3 A - 1 * ,EN0=20 )A1(I) r Bl( I ) 

SKI ) *A1 (I )* (1 -»ei( I ) ) 

61(I)»ALCG(Bl(I)+i ) 

ADJUSTMENT FOR INST FON AND ELASTIC STRAIN ***** 

010.2 
0,083 
S*S1( I) 

E=E1 (I ) 

CALL $LCFE(C,C,E,S, CHG ) 

El ( I )*CHG 

WRITE (6 ,1)A1 ( I ) ,S1 ( I) , 91 (I ) , £1 ( I ) 

GC TO ic 
CCNTINUE 
PTS1M-1 

l 11 ill 11 11111 1111 1111111 11 
1*0 

WPITS( 6 ,5) 

CCNTINUE 
I = IH 

READ ( 33 ,* ,ENC**0 )A2(I),82(I) 

52(1) =A2 (I )* ( H62( I ) ) 

E2 (I ) =A LCG ( 32 ( 1) +1 ) 

ADJUSTMENT FCP INSTFGN ANO ELASTIC STRAIN ***** 

025. 2 
0*06 7 
S = S2 ( I ) 

E = E2 ( I ) 

CALL $LCFF(C ,C ,E,S,CHG> 

E2 ( I ) =C HC* 

**:?:*« 

WRITE ( 6 ,2)A2 (I) , S2( I ), 3 2 (I ) , C2(I ) 

GO T 0 3 C 
CCNT INLE 
PT$2=I-1 

22222222222222222222222222 

1=0 

WRI^-( 6,5) 

CCNTINUE 

01*1 

REA0(3 2t*.ENO6C )A3 (I) ,33(1 ) 

S3 ( I ) * A 3 ( I ) 55 (1 •* 62 ( I ) ) 

E 2 ( I ) =A LCG( R 2 ( 1)*1 ) 

A CJUS T VENT FCP INST PON ANO ELASTIC STRAIN ***** 

063 . A 
O© 06 7 
$ = S3 ( I ) 

E = E3 ( I ) 

CALL SLCF C (C » C » E » S » C HG ) 

E2 ( I ) = CH G 

t 

WR ITE (6 ,2 )A3 ( I) ,52 ( I ), 83 (I ) , 6E( I ) 

GC TO 5 C 
CCNTINUE 
PTS3*I-1 

~wwwwwwwwwww~Hsa2 cImems iqm - legpak xmxz 

CALL C CM F c S 



: I L 
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LuroH-* 



C 



c 

c 



c 



C4 

5 



C 



11 

21 



CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 



CALL 3 CL Y 2 
CALL 3LOWLPU 65) 

CALL 3 AG E (II » • € • 5 ) 

CALL V! > A LF ( » INSTPL ' ) 

MAXLI LINS ST (L3GP AK ,5 00 ,20 ) 

CALL LUES ( 1 5.6X10 ( ?Ho5 ) — 5 ' t LEG? AK , 1 ) 

LINES! ' 5 .6X 1C { SH. 5 ) — 3 S » , LEG? AK ,2 ) 

LINES ( * 5.6X1C( SH. 5 )-2* ' tlEGPAK .2) 

MYLEGN( • STRAIN PATES 1/Si', 16) 

FUTLP.A 

SFCCHR (<=C. , 1 ,.C02, 1 ) 

THKCPV( . C2 ) 

HE IC-HT ( .2 ) 

CALL XNAME! 'TRUE STPMNS',100) 

CALL Y NAPE ( 'TPLE STR ESS ( ( ) MPA ( 1) S • , 1 00 ) 

CALL AREA2C! 8.C,6.0 ) 

CALL HEACIN ( ' i ' ,100, .5 ,2 ) 

CALL HEACIN( • STRESS \S ST RA IN 1 * , 100 * 1*5 ,2 ) 

CALL GRAF(0. , .1,1.,C.,50. ,200. ) 

CALL THKFFM(.C2) 

CALL FRAPE 

CALL C U R V E ( El ,S1,PTS1.*1 ) 

CALL C UR V E ( E 2 » S2 ,FTS2 »+* 1 ) 

CALL CUR^E(E2 ,S2,FTS2,+1) 

CALL RE SET ( • TFKCPV I 
CALL RESET! * HEIGHT' ) 

CALL LEGEND (LEGPAK,2»5.4,3. ) 

CALL BLR EC ( 5.1 ,2.7 ,2.5 . 1 .5 , .02 ) 
WWWWWW«WWWWWWWIrWVWW»*W 

CALL M6SSAG( 'TEMPERATURE = I ' , 100 , 2 . , 2 .5 ) 

CALL INTNH! 3fC, 'A8LT* , 'ABUT* ) 

CALL ME S SAG ( ' ( EH. 2 )(?{ C XHX ) C 4 ', 100 , * A8 LT ' , » ABUT* ) 
CALL 8LFEC(1©6»2*4,2©7, .4, .02 ) 

W W W WW WWWW»«W*lp V W * W * l»w 

CALL MESSAG( * AL- 1C . 24MG-C. 5 2 3MN S • , 1 CO , 2. 5 , 5©5 ) 

CALL B'LFEC ( 2.2 ,5.4 ,2.6 , .4, .02 ) 

W W WWW WwWWWWWWV ^wwwwww 

CALL ME S S AG { » 6 N r C AT A POINTS CC NOT $ ■ , 100 , 1. 2. . 1 ) 
CALL MC5SAG! 'INCICATE FRACTURES' ,100, 'A BUT’, 'ABUT' ) 



* C t • A. 9 t 



Z*t©C2) 



CALL BLREC( 1.1 ..wc 
WWWWWWWVW*Wi*W w u 
CALL GR I C ( 7 » 2 ) 

CALL ENDFLIO ) 

CALL OCNEFL 

FCP.MAT ( lX,2F12*5,lXf2F12j7) 

FCRMA7( 1X,4F12.3 ) 

FORMAT ! 1 > » 4 F 1 2 • 3 ) 

FORMAT ( IX, 12 ) 

FCRMAT ( 1 X , / » 4 x ,'ENG STRE S S' » 2 X , ' T RUE STRESS 2X ,' ENG STRAIN', 
3 'TRUE STRAIN' ,/) 

STOP 

ENO 

SLBPOUTTNE FCF CORRECTING INSTRC.N ANC ELASTIC STRAIN *** ** 
SUBROUTINE SLCPE (C » C ,2 , 5 tCHG ) 

REAL C ,C ,2, S , CFG ,T C ,TD 
TC=C* ( 1 « +0 ) 

TC=ALCG(C>1. ) 

CHG«6-S*70/TC 
IF(CHG«lEdOo )GC TC 11 



GC TO 21 



CHG=0 • 
CONTINUE 
RETURN 
END 



2X , 



108 



10 



20 



30 



40 



50 



60 

C 

C 



TRUE S^TSS \S 7o l c £ T T=375C 

THIS PP CG^ Af- CCNPUlcS T^UE STRESS AND STRAIN FROM INPUT 
ENGINEERING STRESS AND ST? A U , ANO THEN PLOTS TRUE 
STRESS AGAINST true STRAIN. 

w ¥*Lt r> * i* 4 * 4 **<:»:* Jfe;?*,* 4 * * 

EXTERNAL SLOPE 

REAL A1 (ID) , A £ ( 1 C ) , A3( 10 ) , 81 ( IC I ,32 (1C I , B3 ( ID ) 

REAL SI ( 10) . S2(1C) ,S3( 10 ) ,51 (10) ,52 (10 ) ,53( ID ) 

REAL C ,C ,c, $ ,CHG ,TC ,TD, LEGPAK (500) 

INTEGER I»PTS1,?7S2 » PT S3 
1=0 

WR ITE ( 6*5) 

CCNTINUE 
1 = 1+1 

READ( 87,*,ENC*2C )A1 (I) , Bl( I ) 

S1(I)*A1(I)*(1*81(I)) 

E1(I)=ALCG(81 ( I)+l) 

AC JUS THENT FCP INSTFON ANO ELASTIC STRAIN ***** 

C=S. 34 
C = • 0 3 3 
S=S1 C I ) 

E=61( I ) 

CALL SLCPE(C,C,E,S,CHG) 

El ( I ) =C HG 

***** 

WRITS (6 ,1) A1 ( I) ,51 ( I ), 81 (I ) , El( I ) 

gc n ic 

CONTINUE 
FT SI = I— 1 

liiiiiiiiiiiii 1 1 mini in 
1=0 

WR IT C ( 6,5) 

CCNTINUE 
1=1 + 1 

READ ( S6,*»ENC=4C )A2(I) ,32(1) 

S2(I ) = A2 (I )* ( 1 <*2i I ) ) 

E2 ( I ) = A L CG ( 8 2 ( I ) +1 ) 

AC JUS TM ENT FCF INSTFGN ANO ELASTIC STRAIN ***** 

C=31. 9 
C = .l 
S=S2 ( I ) 

E = E2 ( I ) 

CALL SL C PE ( C ,C ,C ,S ,CHG) 

E2( I) =CFG 

4*=satT 

WRITE (6 ,2) A2< I) ,S2< I) ,82 (I ) , E2(I ) 

GC TO 3 C 
CONT INL5 
PTS2*I-1 

222 22222222222222222222222 
1=0 

WR ITE ( 6,5) 

CCNTI NUE 
1 = 1 + 1 

REAO( 85 ,* , cNC =60 )A3 (I) , B3( I ) 

52(I)=A2(I)*(l-»e3(I )) 

E3 ( I ) =ALCG( 93 ( I ) +1 ) 

ACJUSTVENT FQF INSTFCN ANO CLASTIC STPAIN ***** 

C=43. 5 
C = .l 
$ = S3 ( I ) 

E = E3 ( I ) 

CALL SLCPE(C ,C,E,S,CHG) 

E 3 ( I ) =ChG 

****:« 

WRIT C ( 6 ,2) A3 ( I ) ,53 ( I ), 83 (I ) , E3( I ) 

GC TO 5C 
CCNTINUE 
FTS3=I-1 

i *2 ? i ~ ~ ~ ~ ~ ° 3 3 "33^ " “ 

'www«ww«ww»w ' 5i;5i - ciSsNs ion' legp ak zzizzz 

CALL CCMFFS 



PILE 



109 






c 

c 

c 

c 



C4 

5 

C 



11 

21 



i LEG PAK ,3 ) 
U' t 16) 



CALL P r L T2 
CALL R L n V*LP ( . c 5 ) 

CALL 3 £ A C 5 (Oo ) 

CALL PAGE (ll.j , So3 ) 

CALL VIXALF { * INSTPU * ) 

MAX LI N = l INEST (ISC- PA I* ,500,20 ) 

CALL LINES* * 5.6X!0< EH. 5 )-4$* ,L2GPAK ,1) 
CALL LINES (» 5.6X10 ( 3H.5 ) -3 S' , LEG PAK ,2) 

CALL LINFSI • 3.6X10< EH. 5 ) -2 $ » “* 

CALL MYLEGNC ' STRAIN RAT E S 1/! 

CALL FUTLPA 
CALL SFCCHRtSC. ,1, .002,1 ) 

CALL THKCRV ( • C2 h 
CALL H6 I GHT ( • 5 ) 

CALL XNAMSf'TRLE STR A IN 5 * ,100 ) 

CALL YNAMEl'TPUE STP ESS ( ( )MP A ( ) ) $ MOO ) 
CALL A RF A 2D ( 8.C,6.C) 

CALL HEA C IN ( ’ l r , ICO, .5,2) 

CALL H6ACINI 1 STRESS VS 3TPA IN J ' , 100 , 1*5 ,2 ) 
CALL GRAF<0. ,.l ,1. ,C. ,50. ,200. ) 

CALL THKFRM ( • C2 ) 

CALL FRAME 

CALL CUR VE ( El ,S1 ) 

CALL CU P V E ( c2 , S2rFTS2,+l ) 

CALL CURVE(E3 ,53 ,F7S2t*l) 

CALL RESET* ' thkCPV • ) 

CALL RESET* * hEIOFT’ ) 

CALL LSGEN0(LEGPAK,2,5.4,3.I 
CALL 0LPEC15. 1,2. 7, 2. 5,1. 5, .GS) 



WWNHWUUUUUWWW^VWWWWUW 

CALL MESSAG* ' TEMPERATURE = $ • , 100 1 2. ,2. 5 ) 

CALL I NTNC * 37 5 » * £ BUT* , * A BUT f ) 

CALL MESSAG* » ( SF. 2 ) G( EX FX ) C S * , 100 , 1 ABUT f , » ABUT* ) 

CALL 8LPEC* 1.6 ,S.4,5.7,.4,.C2) 
m to W toto tototoMWWtotofc V to W to to to W 

CALL MESSAG* * A L- 10. 5SMG-0. 5 2 ?MN$ * ,100,2.5,5.5) 

CALL 8LFEC < 5.2 ,5.4,2. 6,.A,.C5) 
totototoWtototototowtotoV V to to to to W 

CALL HE 5 SAG ( * END CATA POINTS CO NOT S » , i 00 , 1. 2 , . 1 ) 
CALL MESSAG* * INCICATS C R ACTU P f * ' , 13 C , * A8 U T » , * ABU T » ) 
CALL BL PEC ( 1. 1 ,.C6 ,4.0 ,.24, . C2) 
tototoWWtototototototo*toto 



CALL GPIC (2f 2 ) 

CALL cNDFL(O) 

CALL OCNEPL 

FC P M A T ( 1X,2F12o5 »1X ,2F12.7) 

FCRM A T ( 1 X , 4F 12.5 ) 

FCRM*T{ ]X,4F 12.5 ) 

FORM A T { 1 X , 13 ) 

FCPMAT (IX ,/,4X , * ENG STRESS* , 2X ,»TRUE STRESS * ,2X ,» ENG STRAIN* 
a * T°UE STRAIN* , / ) 

STOP 

ENO 

SUBROUTINE F C F CCRPECTINC I N STRCN ANC ELASTIC STRAIN »* ** 
SLBPQUTINE S L CPE (C,C,c ,S ,CHG ) 

REAL C,C,E,S,CFG,TC,TD 
T C =C* (1. +0) 

TC=ALCG (C + l. ) 

CFG- E— S *TD/ T C 
IF(CHC.LE.O. )CC TC 11 
GC TO 21 
C FG=0 . 

CONTINUE 

RETURN 

ENO 



2X , 



no 



c 

c 

c 

c 

c 



10 

c 



c 

20 

c 

30 

C 



C 

4C 

C 

50 

C 



C 

60 

C 

C 



TRUE S7='G3 \S Tr, .L' STRAIN A 7 T = ^OCC 

THIS =>RCGR^ CC.^LHS t RU2 5 t RE£3 ANC STRAIN CRC* IMPUT FILE; 
ENGINEERING S 7R ESS AND STRAIN, AND THEN PLOTS T^UE 

stress 

EXTERNAL SLOPE 

REAL Ai (10) , A 2 (1C ) ,A3( 10 ) ,B1 (10 ) ,B2 (10 ) • E3 ( ID ) 

REAL SI (10) ,S2(1C) tS3(10)rcl(10) »E2(10) ,6 3( 10) 

REAL CtCtctS *CHG rTC ,TD, LSGPAK (500) 

INTEGER I,PTS1,?7S2 ,PTS3 
1 = 0 

W R I T c ( 6,5) 

CONTINUE 
1 = 1 + 1 

READ ( 90 ,*,cNC = 2C )AI(I),B1(I) 

sit i ) *ai (i )* ( i <en i ) ) 

EKI ) *ALCG(B1 ( IM1 ) 

AC JUS TMENT FGF I NSTFON AND ELASTIC STRAIN ***** 

C=9. 51 
C = .l 
S = S1 ( I ) 

E = E1 ( I ) 

CALL SLC Pc (C»£,E,S ,CHG ) 

EKI) =C HG 

****-: 

WRITE ( 6 , 1) A1 ( I) .51 ( I) 9 B1 (I ) , EKI ) 

GC TO 1C 
CONTINUE 
P7S1=I-1 

11111111111111111111111111 
1 = 0 

WF ITS ( 6,5) 

CONTINUE 
1 = 1 + 1 

REAOt 89 END =40 )A2 (I) , B2( I) 

52(1 ) =A2 (I )■* ( 1 -*e2 ( I ) ) 

E2(I ) =ALCG( 32 ( I )+l ) 

AC JUS TM E NT FCP INSTFCN AND ELASTIC STRAIN +3 

c=?o . a 
c=.i 
S = S2( I ) 

E = E2 ( I ) 

CALL 3LCFE(C,C,3,S,ChG) 

E2( I ) =CHG 

WRITE (6,2)A2 (I) » S2 ( 11,32(1) ,62(1) 

GC TO 3 C 
CCNT INLE 
P TS2 = I- 1 



'^22 



12222222222222222 



1=0 
WRITE ( 6,5) 

CONTINUE 
1 = 1 + 1 

READ( 83 , * ,ENC = 6 0 ) A 3 ( I) ,83(1) 

S3 (I ) = A 3 (I)-(l*fiI(I)) 

E3 ( I ) = A L CG ( 33 (IM1 ) 

AC JUS T' 4 ENT FCP KS7F0N AND ELASTIC STRAIN ***** 
C=60* 7 
D=.l 
S = S3 ( I ) 

E=E3 ( t ) 

CALL SLCFEtC ,C ,3 »$»CHO) 

E3( I) =CHG 



WRITP ( 6 ,3) A3 ( I ) , 52 ( I ) , 83 (I ) , CK I ) 

GC TO 5 C 
CONTINUE 
PTS3= 1-1 

332333 3 322233 3 332 322 33333 333 3 33 
VWtMriw*wv»H ***** C I ME MS ION L5GPMC %%%%%% 
CALL CCNFFS 



111 



U>PO»— 



c 

c 

c 

c 



C4 

5 



C 



11 

21 



CALI 5 Cl Y 2 
CALL 31 CVI?!. SS ) 

CALL ? AGE (11. . £. 5 ) 

CALL M I X ALP ( ' IN3TPU ’ ) 

PA XL I N = UNcST USGP1I" ,5 00 ,20 ) 

CALL U,53( ' 5 .6X10 ( EH. 5 ) -*S • , ISGPAK. , L ) 
CALL LINES! ' 5.6X10 ( PH. 5 ) -3$ ' , LSGPiK ,2 ) 
CALL LINES! ’ 5.6X1C! EH. 5) -2 S' ,L=GPAK ,3) 
CALL CYLEGN ( ' STR PIN RATES 1/Si', 16) 
CALL FUTLP-A 

CALL SHCCHR ( SC. , 1, .002 , 1 ) 

CALL THKC=V ( ,C2 ) 

CALL HEIGHT!. 2) 

CALL XNaHEI'TPUE STR A IN $ ' , 100 ) 

CALL YNAPEl'TPLE STR ESS ( ( ) MP A ( )) S * , 1 00 ) 
CALL ARE A 20(8.0,6.0) 



CALL HEACIN ( ' l’ ,1C0, .5 ,2 ) 

CALL HEACIN! ' STRESS \S_ STRA I N i • , 100 , 1. 5 ,2 ) 
CALL GR A F (0. » • 1 » x • » C ® 3 0 • *200* ) 

CALL THK*RM(.C2) 

CALL FRAM C 

CALL CURV6(21,Sl,PTSIf+i) 

CALL CURVE ( £2 , 52 , FT S2 , + 1 ) 

CALL CURVE(E3 ,S2,P7S2,*1 ) 

CALL RES ET { ' ThKCFV’ ) 

CALL RE SET { ’hEICb7» ) 

CALL LEGENDt LEGPAK ,2,5. 4,3. ) 

CALL eLFEC(5.I ,2 p7,2.5,1o5,oC2) 

U U w l* V, W U W U V VVWUWWw 

CALL MESSAGC 'TEMPERATURE = S • , 100, 2. , 2. 5 ) 
CALL I NTNO ( 4C C > ' A EL 1 ' , 'A BUT ' ) 

CALL MESSAGE' ( 2h« 2 ) C ( 2 XhX ) C S » , 100 , 1 ABUT » 
CALL 6LFEC(1.E ,2o4,2.7,.A,.02) 

WtowWHWWU W^WW t V i W WWW WW 



'ABUT* ) 



CALL ME SSAG ( • t l- 1C. 23MG-C. 52 3MNS 1 , ICO , 2 . 5 ,5.5 ) 

CALL BL F C C (2o 2 ,5.4 *2o 6 » .4, *G2 ) 

WW*i**WWWWWWWW V V W V W W W W 

CALL MPSSAG(»ENC CATA POINTS CO NOT S • , ICO , 1. 2', . 1 ) 

CALL MES?AG( 1 INCICATc F R AC TU F 2 i • , 10 0 , • A BUT 1 , ' ABU T ' ) 

CALL BLPEC ( 1. 1 ,.C6 ,4«,Q, . 24, . C2 ) 

WWUwWWwWWwWWwWW 
CALL GRIC (2,2 ) 

CALL 2 NO F L ( 0 ) 

CALL OCNEFL 

FORM A T ( 1>*2F12.5 » 1 X ,2F12.7) 

FGRMATC 1X,4F12 # S ) 

FCRM AT ( lX,*tR12.5 ) 

FORM AT ( IX, I 2 ) 

FCRMM(IX,/,4X , ’ C NG STR 2 S S ' , 2 X , • TRUE STR2 SS» ,2 X , ’ ENG STRA:N',2X 
£ * TRLF STRAIN' ,/) 

STOP 

EAD 

SL8R7UT INS FCP CORRECTING I N S 7 ? 0 N ANC ELASTIC STRAIN '<**** 
SUBROUT INE SL CPr (C , C ,c , S ,CHG ) 

REAL C » C »e , S » O G ,TC » TO 
70=0* ( l.+QJ 
TC=AL0G(C+1« ) 

CHG=E— 5^70/TC 
IF(CHG.LEoOo )GC 1C 11 
GC TO 21 
ChG=0. 

CONTINUE 

FETURN 

ENO 



112 



c 

c 

c 

c 

c 



10 

c 



c 

20 

30 

C 



C 



40 

50 



C 



c 

6 C 

C 

C 



T*UC STRESS \Z TQ l 



T Fs 1 4 



7=4 2 SC 

ISS ANC STRAIN c ROM I'l PUT 
AND THEN PL STS TRU- 



i -' u : if:io v ^Lw ^ s r \ 1 * i =^ 

THIS SRCGRAM c-' FU"EG " r ?'J 0 STRCS; 

ENGINEERING STRESS AND ~T° ill , A^ 

STRESS AGAINST TRUE STRAIN,, 

4 > *- 5 K ^* v »< as ^ < * 

EXTERNAL SLCPE 
REAL A1 (10) , A 2 (1C ) , A3 ( 10 ),31 CIO ) ,B2 ( 10 ) ,B3( ID ) 
REAL SI (10) • S2( 1C) tS3( 10 ) t cl (10 ) ,£2 CIO ) ,£3(10 ) 
REAL C » C ,2 , S » CFG ,TC , TD ,LSGPAM500) 

INTEGER I, PT SI ,F7 S2 ,?TS3 
1=0 

WP I TE ( 6,5) 

CONTINUE 
1 = 1*1 

READ( 93 ,*,EN0=20 )A1 (I) , Bl( I ) 
$Hi)=Ai(i)*(nei(i)) 

El ( I ) =A LCG ( 0 1 ( I)+l ) 

ADJUSTMENT FCF INSTFCN AND ELASTIC STRAIN ****** 
C=4„22 
C = „05 
S = SI ( I ) 

E=E1( I ) 



CALL SLCFStCfC ♦ E ,S t CFG ) 
El ( I ) =ChG 



WRITE (6 ,1) A1 ( I) ,S1( I)r 31 (I ) , El ( I > 

GC TG 1C 
CONTINUE 
P7S1*I-1 
1=0 

WRITE ( 6,3 ) 

CONTINUE 

1=1*1 

REA0(92,*,ENC=40 )A2(I) , B2( I ) 

S 2 ( I ) =A 2 ( I )*< 1 + E2( I ) ) 

E2 ( I ) = A LCG ( 8 2 ( I ) ♦ 1 ) 

ADJUSTMENT FCR INSTFCN AND ELASTIC STRAIN ***•*-< 
C=10. 7 
C = o 1 
S = 52 ( I ) 

E = E2( I ) 

CALL SLCFE( C ,C ,EtS,CHG ) 

S2( I )=CFC- 

♦ *** t'St 

W P I TE ( 6 , 2 ) A 2 ( I) ,S2(I),B2(I ) , : 2 ( I ) 

GC T H 3C 
CCNT INLE 
P T $2= !-l 
1=0 

W F I TE ( 6 , 5 > 

CONTINUE 
1=1 + 1 

R c AO ( 0 1 , E N D = 6 0 ) A 3 ( I ) ,B3(I ) 

S3 ( I ) =A3 (I)* U ^e 2 ( I ) ) 

E3 ( I ) = ALCG ( B? ( I ) + 1 ) 

ADJUSTMENT FCR INSTFCN AND ELASTIC STRAIN 
C=36, 8 
C=o 1 
S= S3 ( I ) 

E = E3 ( I) 

CALL SLCFMC ,C »E ,S , CHG ) 

E3 ( I ) =C FG 

WP ITc (6 ,3) A3 ( I ) ,S2 ( I ) , 3 3 (I ) , £2 ( I ) 

GC th 5 C 
CONTINUE 
P7S3=I-1 

‘a'a'333"a*a‘3'3333'a-';*T*:‘a‘:‘3'a3'a3 

VW^WwJwwwuw 5»«~ClfeNSI0N L2GPAK 
CALL COMFFS 
CALL PCLY3 
CALL 3LCWLPU S3) 



= Il ‘ 
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ojroe- 



C 

C 

c 

c 



ca 

5 

C 



11 

21 



OIL SPACE ( ) 

OIL PAGE (11 . , 03 ) 

CALL M > A LF ( ' INSTPL • ) 

MAXLIN-LINEST (LEGPAK ,500 ,20 I 

CALL L I N 6 5 ( 1 f 1 C ( SH. 5 )-AS * , t EGPAK , 1 ) 

CALL LINtS( 1 5 . 6 X 10 (PH. 5 )-?*’ r LEGPAK , 2 ) 

CALL LI NES< 1 5 . 6 > 1 C ( EH. 5 ) -2 S 1 » LEGPAK , 2 ) 

CALL VYLEGTU 1 STR 4 IN RATES 1 / S 1 * , 16 ) 

CALL FU 7 LRA 

CALL SHCCHR ( SC. , 1 ..C 02 , 1 ) 

CALL THKCRV(.C 2 ) 

CALL HEIGHT*. 2 ) 

CALL XNAPE( ’ TRUE STR A IN S » , LOO ) 

CALL YNAME( • TFL£ STRESS ( ( )MPA { ) )$• ,100 ) 

CALL A R E A 2 C ( 3 . C, 6 . 0 ) 

CALL H 6 ACIN ( ’ J • .ICO, . 5 ,2 ) 

CALL HEACINt ’ STRESS \S STRAINS’ , 100 • 1 # 5 ,2 ) 

CALL GRAMO. , .l,i.,C., 50 . , 200 .) 

CALL THKFRM< oC 2 ) 

CALL FRA f'S 

CALL CUPVE(E 1 ,S 1 ,FTS 1 ,* 1 ) 

CALL CURVE(E 2 ,S 2 ,FT$ 2 ,* 1 ) 

CALL C UR VE ( E 3 ,S 2 ,FTS 2 ,* 1 ) 

CALL RESET ( 1 TFKCFV ■ ) 

CALL RE S ET ( 1 F 6 1 GET 1 ) 

CALL LEGEND ( LEGPAK , 2 , 5 . A, 3 . ) 

CALL eLFEC ( 5 «i , 2 « 7 , 2 . 5 , 1 . 5 , . 02 ) 

V VttWW^W 

CALL ^ESSAG ( 1 TEMPER ATURE = S ’ , 100 , 2 • , A « 5 ) 

CALL I NTNO ( 4 2 3 » 1 £ Ell T ’ » ’ A eUT 1 ) 

CALL MESSAG ( * ( c h. 2 ) 0 ( E XHX ) C A ’ , 100 , 'ABUT 1 , ’ ABUT ’ ) 
CALL eiFEC ( 1 .6 , 4 . 4 , 2 . 7 , . 4 , . 02 ) 

WmUWWWWWVWWW t V Vi, V W W * w 

CALL MESSAG ( 1 A L- 1 C . 2 *MG- 0 . 5 2 Sf'N S 1 , 100 , 2 . 5 , 5 . 5 ) 

CALL 6 LFEC ( 2.2 , 5 #A , 2 . 6 , . 4 , . 02 ) 
V»WWWriW*tfcWWWV»fcVWVV»WWW 

CALL M E S SAG ( ’ ENC CATA POINTS CO NOT $ ' , ICO , 1 . 2 , 2 * ) 
CALL ME S SAG ( ' INDICATE FRACTUFcS’ ,10 0 , ' ABUT* , 1 ABUT’ ) 
CALL SLP c C(l.l,i.S 6 , 5 . , • 24 » • C 2 ) 

Wfcfc'Wri V*WWWV,rfw WWh 



CALL GRIC (2,2 ) 
CALL END PL ( 0 ) 
CALL OCNEFL 
FORMA T ( 1 X , 2F 1 2 • 
FOR M A T ( 1 X , AF 1 2 • 
FORMAT ( IX , AF 1 2 . 
FORM AT ( IX, ! 2 ) 
FORMAT ( 1 X , / , A X , ' 
a 'TRUE STRAIN' ,/ ) 



3 ,1X 
5 ) 

3 ) 

ENG 



,2F12.7) 
STRESS' , 



2 X, 'TRUE 



STOP 

END 

SUBROUTINE C CF CCRP-.CTIflG INSTRON 
SUBROUTINE SLOPE (C ,C ,c ,S ,CHG ) 

FEAL C,C,c,S,CFG,TC,iO 
TC =C* ( 1. +D) 

TC=ALOG (C+l . I 
CHG»£-S*TO/TC 
I F ( CHG« LE. 0 a ) C*C TC 11 



GC TO 21 
CFOO. 

continue 

FETURN 

END 



STRESS’ , 2 X , ’ ENG $TRA( N’ 
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